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THIS IS A DYNAMIC TEST oF Je ee} PRINTER PLOTTER 
He SCWARE END ob NEE ER FACE. et seo TO 6 aber an 
He ae $2 xetore TH HA PRINTED AND 
RacHre ~PLorven o Bs Th. THE TEST IS CIV IDED tNTS wo 
?RST IS A MA Nua rep on fe és TES WHERE Tt THE rope MUST 
NO TEST 


aes PATTERN ON THE ELECT 6st vi SERED Anon Sue PRINTER. 
THIS PROGRAM WILL RUN ON NON-SWITCH REGISTER CPU TYPES. 

IF RUNNING ON A POPIS WITH NON-STANDARD ADDRESSES; 

WALT PDPIS AND POPL1, ENABLE PDPI! 

“LOAD” AgS1i LoRDER istaRT ADDS. 17700) ~ RESET, 

60000 FOR 8K, 


12K, 140000 FOR 16K) STAR 


De11 ADDRESS (£0000 FOR 4K 
S Ss ONTINUE ON PDPIS TO READ in 


Ctr 


MAINDES 
AD POP 11 : reas 1e46 Pe epety tte, 
~ 


| “35S BSpTi apgcEe, 2 

FROGRA™ T eof" Sigut as 
| IF ADDRESS LOCA TIERS RESCURONS PROGRAM 
| 
| 
| 
| 


~~ " 
oO MmMMoa 


WILL aL T WITH BISPLAY 10. 
RE GUIREMENTS 


1 EQUIPTNENT 
FOP-11 COMPUTER ITH CONSOLE, TERMINAL 
LVai]"1NfeRrace 

CvOl=Ak § INCH PRINTER E pctres 
LVOI-BX 11 INCH PRINTER/PLOTTER 
STORAGE 

THIS PROGRAM USES 4K OF MEMORY. 


LOADING PROCEDUSE 


fo 
tu 


| 
| FEOCEDURE FOR NORMAL SINARY TAPES SHOULD BE FOLLOWED. 


aut tek Sete eo ee See eee 
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### SEQ C003 


STARTING PROCEOURE 


CONTROL SWITCH SETTINGS 
STANORRD POP-11 FORMAT 


SWi5=1 ne ON ERROR 

ski4¥=1 LOOP ON TEST 

W132; iNSIEIT ERR TYPEOUTS 
SWl2=1 LOOP ON A LINE 

SWiDs] SELL ON Pek 0 

SWS =} LOOP ON E 


RROR 
Sw8 =] LOOP ON TEST IN SWR«7:0> 
STARTING ROORESSES 
-) uy MP heree Ay THE LOGIC “si TESTS. 


Ri ia Tee Shak, Ss cs RC Sha i ICS 
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MANUAL INTERVENTION TEST 


OPERQTOR MUST EXECUTE THE INSTRUCTIONS TYPED ON THE 
a eect Ain sols een Baareee an df 


LOGIC AND DYNAMIC TEST 

ae OTTER MUST VERIFY VISUALLY THE PATTERN PRINTED 
we Pevil . 

ERRORS 


THIS PROGRAM USES THE OIAGHOSTIC “SYSMAC” PACKAGE FOR 
ERROR REPORTING AND TYPEOUT. THE PROGRAM WILL TYPE 
Pe een iNG RODRESS, THE SUS ADDRESS, AND THE VECTOR 


Breanne. BUS nao AT WHICH AN ERROR WAS DETECTED. 
BUSVECT: BUS VECTOR ADDRESS 
RESTRICTIONS 


ONCE THE PROGRAM HAS BEEN STARTED AT LOCATION 200, IT 
MUST BE RESTARTED ONLY AT 204/804. 


MISCELANEOUS 
EXECUTION TIME 


MANUAL i er iS ON TEST - N/A 
DYNAMIC L Vv RES TEST - § MIN. 
ceah Coe Etfoh Ne NE Pass, §N ENooE- PASS MESSAGE WILL 


DEVICE ADDRESS PROGRAM LOCATIONS 


QCATION 1250 CONTATNS THE Py tt DEVICE SDDRESS. ap SeeCe? 
sites iSiu XB alls Bina THe LY 1 INTERRUPT VECTOR. (SVECTL) 
JORTION 1Led4 C TH ry- 1 INTERRUPT LEVEL. ($VECT1) 
LOCATION 1626 SONTAINE THE CPU DELAY FACTOR <SLEW TEST ONLY> 

‘PRESET TO 1 FOR 11/05> 


COMPLETED. 
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‘BASIC LOGIC TEST 


_ TBTS_PATTERN 15 USED 10 VERIEY THAT ALL sarees 
- FHE FULL WIDTH OF THE PAPER SHOULD BE FILLED WITH ONLY 
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- $## SEG 0005 
PROGRAM DESCRIPTION 


MANUAL INTERVENTION TEST 


THIS TEST THE Tee MUST Pb Oe THE MESSAGE PRINTED ON 
THE cy ONSOLE Th Bees HhS TERT Aen URED TQ NERIEY. TF THE PROPER 
OPERAT ION OF THE STRTUS/CONTROL ATA REGIS 


THE PURPOSE OF THIS IS TO CHECK THE BASIC CONTROL/STATUS 
as ‘od gy leg ALSO TESTED ARE THE VECTOR ADDRESS 


DATA PATH TEST <PRINT MODE> 


THE FUREOSE OF THIS TEST 1S 70 PREFORM BASIC CHECK OF THE 
DATA PATH*S BETWEEN THE COMPUTER AND THE PRINT ie ae 
RLTERNGTING LINES OF “a7S7a?" AND “SURUEU™ ARE PRINTED ACROSS ALL 132 COLUMNS 
TO TEST THE DATA LINES. THIS PATTERN IS REPEATED FOR 129 LINES. 


PRINTABLE “NON-PRINTABLE TEST <PRINT MODE> 


Ms | PURPOSE OF THIS TEST IS TO VERIFY_THAT ALL LEGAL 
ltl CHARACTERS MAY BE PRINTED. THIS ALS 

TESTS THAT THE NON-PRINTING CHARACTERS ARE NOT ee 

A LINE OF LEGA, CHARACTERS IS PRINTED (CODES 240 T 3722 

FOLLOWED BY A SLANK LINE. THIS BLANK LINE IS THE RESUL OF PRINTI 

THE CODES 200-237 CEXECBT CODES 204<E0T> ,2le<LF> 2l4<FF>,21S<CR>). 

THIS PATTERN IS REPEATED 40 TIMES. 


SINGLE CHARACTER PER LINE <PRINT MODE> 


THAT C oe ae BOTH UPPER AND LOWER CASE ey: AND 
BLL NEMBERS ND SYMBOLS SHOULD BE PRINTED (CODES 240-377). 
THIS PATTERN IS PRINTED ONLY ONCE. 


ROTATING PATTERN <PRINT MODE» 


THIS PATTERN IS USED TO VERIFY DIFFERENT CHARACTERS MAY BE 
PRINTED ON THE SAME LINE. THE FIRST CHARACTER OF THE 
FIRST LINE SHOULD BE A “SPACE” CH BRACTER FOLLOWED BY 
MaSi8"() ETC. CHARACTERS ACROSS THE FULL WIDTH OF THE PAPER. 
IE. 3!" eSu8°() #4. -. 0123456789: 
Eat ACH LINE WILL BE ROTATES ONE CHARACTER TO THE LEFT AND THE 
BCTATING PATTERN IS 96 LINES LONG. 
THIS IS A BINA RY COUNT FATTERN AND SHOULD INCLUDE BOTH 
UPPER AND LOWER CASE CHARACT ERS ‘CODES 240-377>. 
THIS PATTERN IS PRINTED ONLY ONCE. 
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CHARACTER WEDGE <PRINT MOCE> 


rs me BR ESIGNED TO TEST THAT EACH CHARACTER POS TLON 
SELECTED pOR TOA THE FIRST LINE OF 

of “EupguT S" ARE PRINTED REROSS THE FULL WIDTH iF THE BAPER. 

THE SECOND LINE OF _THE WEDGE THE “RUBOUT” CHARACTER 

1S PRINTED ACROSS THE WIDTH-1 ETC. 

THIS I$ EXECUTED IN A BECENDING AND ASSENOING WEDGE PATTERN. 

THIS PATTERN IS PRINTED ONLY ONCE. 


ROTATING ONE BIT DATA PATTERN <PLOT MODE> 


EACH Sri ite ce OF THIS PATTERN IS PLOTED ACROSS 
yy iRe iN LENGTH AND EACH LING IS_RE Peary le? TIMES. 
19 GIVE A VERT CAL LINE Fa a OT APPROX MATELY 1 4 INCH LONG. 
FOR EACH BIT POSITION HE ae ATING ONE ett eaTtERN (8 BITS) 
< TE. 200-100-40-20-10-4-2-1 
THIS PATTERN IS PLOT#ED ONLY ONCE. 


ACCUMULATING BIT DATS PATTERN <PLOT MODE> 


ERCH CONFIGURATION og THE PATTERN IS PLOTED ACROSS THE ENTIRE 
LINE LENGTH AND E LINE IS REPEATED le7 TIMES TO GIVE A 
\ LINE PLOT ; PROXIMATELY 1 1/4_INCH LONG FOR EACH 

Ct T POSIT IN THIS TEST THERE WILL BE EIGHT 
VERTICAL LINE PLOTS INCREASING TO THE RIGHT ONE POSITION. 
ERCH ONE CORSPONDING TO THE ACCUMULATIVE BIT POSITION IN 


HE CHARACTER. THIS PATTERN IS PLOTED ONLY ONCE. 
ALTERNATING ONE AND ZERO DATA PATTERN <PLOT MODE> 


EACH git ats 4 THE PATTERN IS PLOTTED ACROSS THE 
ENTIR LI LENG aT AND EACH LINE IS REP cre 127 TIMES T 
GIVE A_VERTICAL ih NE PLOT APPROXIMATELY 1 174 INCH LONG. 
THE RESULTING PATTERN APPEARS TO BE ATERNATING SOLID AND 
BLANK BANDS. THIS PATTERN IS PL LOT TES ONLY ONCE. 


DIMINISHING BIT DATA PATTERN <PLOT MODE> 
EACH CONFIGURATION OF THE PATTERN IS PLOTTED Boreas Ne ENTIRE 


LINE LENGTH AND EACH LINE IS REPEATED 127 My a 
& VERTICAL LINE PLOT APPROXIMATELY b V7 INC -H ONG FOR hd 


E ON. 
EACH ONE CORSPONDING TQ THE DIMINISHING BIT POSITION IN 
THE CHARACTER. THIS PATTERN IS PLOTTED ONLY ONCE. 
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_ ### SEQ 0007 
GRAPHIC WEDGE <PLOT MODE> 


ve Parrery IS be age TO iy peat EACH PLOT POSITION 
MA SF SELECTED iN a’ ectie RST Ly ee OF THE WEDGE 


Bt PRINTES ACROSS THE WIDTH 
wh THIS, PATTERN rc EXECUTED A DECENDING AND ASCENDING 
ence” PATTERN. THIS PATTERN IS PLOTTED ONLY ONCE. 


PAPER SLEW <PLOT MODE> 


THIS TEST IS DESIGNED TO CHECK FOR PAPER MOTION WHEN NOT 
PRINTING. A WIDE BAND OF PLOTTED DATA IS PRINTED =, ° Beil ‘LESS THAN 1 SEC.) 
IS _INITIATED. AFTER THE DELAY THE DATA IS PLOTTED AG 
THERE SHOULD BE NO VISIABLE GRP BETWEEN THE PLOTTED BAA 

THERE MAYBE A SHADE CHANGE). 
THIS BATTERN IS REPEATED ONLY ONCE. 


19. SOFTWARE SWITCH REGISTER 


IF YOU ARE RUNNING ON A NON-SWITCH REGISTER cru OR OR SWITCH 

REGISTER IS SET TO ALL ONES, THE SWITCH SETTING CAN SE 

CHANGED BY TYPING CONTROL G: THE COMPUTER WILL rite 

SUT THE VALUE OF THE SHITCH REGISTER AND Walt FOR INPUT. 

TO KEEP THE SOME SHITCH VALUE, TYEE 8 CARRIAGE RETURN 
QINERAISE, TYPE NEW S4]TCH SEtrINGs FOLLoheD BY A CARRIAGE 
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ERROR POINTER TABLE 
IN NITIALIZE THE COMMON 
T} TEST FOR TIME Mt ERROR 
T3 TEST FOR NO ERROR FLAG, TEST 308) S IS RESET 
3 TEST THAT READY FLAG TEST BIT? IS SET 
T TEST THAT INTERRUPT ENABLE MAY BE SET AND CLEARED (BIT 6) 
TS TEST THAT MODE NAY 8 set 
TE TEST THAT MODE MAY BE CLEARED 
1? TEST THAT LOROING THE SUFFER RESETS READY 
T10 TEST THAT READY WILL SET AFTER A DELA 
Ti! TEST THAT THE PRINTER WILL IN TERRUPT 
Tle TEST THAT THE PRINTER CAN INTERRUPT ON LEVEL INDICATED -1 
T13 TEST THAT THE PRINTER CAN NOT INTERRUPT ON LEVEL INDICATED 
na TEST THAT THE PRINTER CAN NOT INTERRUPT ON LEVEL INDICATED +1 
td 
Tié DATA TRANSFER PATH TEST 
Ti? PRINTABLE AND NON-PRINTABLE CHARACTERS 
i 


20 SINGLE CHARACTER ACROSS ALL COLS. «96 CHARACTERS> 
Tel ROTATING CHARACTERS ACROSS ALL COLS. (96 CHARACTERS) 
Tee DOUBLE WEDGE AL (CHARACTER) 
Te3 DOUBLE WEDGE PATTERN 
Te4 BASIC GRAPH MODE TEST 
Tes GRAFH MOD 
Teb ALTERNATING ONE AND ZERO TEST 
Te? aA E at BIT 
T30 as: "se WEDGE (LEFT > 
T31 PLOT A LENGTH OF FULL GRAPH DATA 
END OF page. ROUTI Ne 
MANUAL INTERVENTION TEST 
PRINT/PLOT SUBROUTINE 
| MESSAGES 
Y_INPUT ROUTINE 
te INE 


BINARY TO OCTAL (ASCII) AND TYPE 
CONVERT BINARY TO ane TYPE ROUTINE. 


AP 
ERROR HANDLER ROUTINE 
ERROR MESSAGE tite ROUTINE 
Br Ore HANDLER E 

POWER DOWN BND iP TRONTINES 
TRAP DECODER 

TRAP TABL 





MAINOEC-11-D2LVA-8 
AB.Pil 


OZLV 


LOLOL BR POLO LN PN LPL OO 


LORE ERO OO 


nt an et 
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000901 
160000 
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000099 
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000340 
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JOl 


. TITLE ey “ty —* 


; #COP Md a 


:*DIGITA Eautpret 


j #NAYNARD, 


ale 


; PROGRAM BY RAYMOND SHOOP 


t STHIS PROGRAM WAS ASSEMBLED USING THE amt MAINDEC SYSMAC 


; SPACKAGE (MAINDEC-11-DZQAC-CO) MAR 21, 


$TN=! 
$SWR=160000 ;;HALT ON ERROR, LOOP ON TEST, 


-SBTTL BASIC DEFINITIONS 


jtINITIAL jAgoRESS OF THE STACK POINTER #** 1100 *#* 
PAS FINITION OF 
i iBG fk BEF tht ITION OF 


| tas Hanae DEFINITIONS 
HT= ;;CODE FOR HORE ZONTRL TRE 


STACK 
auiy fn 7 ERSOE R 


DSWR= 177570 
DOISP= 177570 


55 KOUE FOR 


;;CODE FOR CARRIAGE RETU 
;;CODE FOR CARRIAGE RETURN-LINE FEED 
;;PROCESSOR STATUS WORD 


;;STACK LIMIT REGISTER 
7s PROGRAM ice he CeetER ESISTER 


WARE SWITCH 
; | HARDWARE DISPLAY REGISTER 


;#GENERAL PURPOSE REGISTER DEFINITIONS 
Ro= “0 ;;GENERAL REGISTER 
Ris “1 *:GENERAL REGISTER 
Re= %2 ::GENERAL REGISTER 
R3= : :;GENERAL REGISTER 
R4= “4 ::GENERAL REGISTER 
RS= “5 ::GENERAL REGISTER 
Res 1 ::GENERAL REGISTER 

:;GENERAL REGISTER 
RrOUIV Re, SP ::STACK POINTER 
"EQUIV R7°PC ::PROGRAM COUNTER 

:xPRIORITY LEVEL DEFINITIONS 

Pro= -PRIORITY LEVEL 0 
PRiz 40 PSERTORITY LEVEL | 
PRe= 100 >:PRIORITY LEVEL 2 
PR3=—Ss«1:4) :PRIORTTY LEVEL 3 
PR4= 200 ::PRIORITY LEVEL 4 
PRS= 240 : PRIORITY LEVEL S 
PRé= 300 *:PRIORITY LEVEL & 
PRr= =s«-3340 ::PRIORITY LEVEL 7? 


INHIBIT ERROR TYPOUT 
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SLOSS RN LN LN LON LR LO ON LON DN PR RN LLL LDN LOE NOLL LDN LPN OR LN PR OLN LPR LR ONL NOP PN PROP PF POPP Oe > 
Ne ae a a ts es ws es 
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aah ae | Reon -B 
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100900 
040900 


000001 
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fl mae PaprS eR SWITCH DEFINITIONS 


SwiS= 1000 

SwWi4= 4000 

SW13= 2000 

SWle= 10000 

SWll= 4000 

SWl0= 2000 

SWOS= 1000 

Swos= 400 

SWO7= 200 

SWOS= 100 

SWOS= 40 

SWO4¥= 20 

SWO3= 10 

SWOe= 4Y 

SWOl= 2 

SWOO= 1. 

-EQUIV SWO9,SW9 
EQUIV SWO8,SW8 
EQUIV SWO7,SW7 
EQUIV SWO06,SWE 
EQUIV 0s, 
EQUIV SWO4, SW4 
EQUIV SWO3,SW3 
EQUIV SWO2e, SWe 
EQUIV SWO1,SW1 
EQUIV 0,S 

*¥DATA BIT DEFINITIONS ‘BITOO TO BITLS) 

B171S= 100900 

BITI4= 490000 

BITi3= e0000 

BITl2z= 10000 

BIT1l1= 4000 

BIT1O= e000 

BITOS= 1000 

BITO8= 400 

BITO7= e200 

BITOS= 100 

BITOS= 40 

BITOY= 20 

BITO3= 10 

BITO2= 4 

BITOl= e2 

BITOO= 1 

-EQUIV BITOS,BITS 

-EQUIV BITO8,BIT8 

-EQUIV BITO?7,8IT7 

-EQUIV BITOE,BITE 
EQUIV BITOS,BITS 
EQUIV BITO4,BITY 
EQUIV BITO3;B81T3 
QUIV BITO2,BITe 
EQUIY BITO1,BIT1 
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000240 
177514 
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ooocco 


000174 
000000 
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009137 
000137 
000137 
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000137 
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-EQUIV B1TO0,8ITO 
;*BASIC dl TRAP VECTOR ADDRESSES 


RRV - HER ERROR 
BRVEK= fo RESERVED BND SLLEGAL ING TRUCTIONS 
TBITVEC=14 
TRIVEC= 14 i Tho TRA P 
BPTVEC= 14 tIBREAKPOINT TRAP (BPT) 
IOTVEC= 20 ;;INPUT/OUTPUT TRAP (IOT) *#SCOPEx# 
PWRVEC= 24 Md 
EMTVEC= 30 S}EMULATOR TRAP (EMT) **ERROR# 
TRAPVEC=34 “TRAP™ 
TKVEC= 60 ::TTY KEYBOARD VECTOR 
TPVEC= 64 ti TTY PRINTER VECTO 
PIRGVEC=240 IPROGRAM INTERRUPT REQUEST VECTOR 


ABASE=177514 
a 190200 
PRIOR=200 


SSHRSIESYOO 
STN=1 
-SBTTL OPERATIONAL SWITCH SETTINGS 
i: SWITCH USE 
:% 15 HALT ON ERROR 
:* 14 LOOP ON TEST 
:% 13 INHISIT ERROR TYPEOUTS 
Be le LOOP ON A LINE 
1% 19 BELL ON ERROR 
:% 3 LOOP ON ERR 
:% S LOOP ON fEey IN SWR<7:0> 
*SBTTL TRAP CATCHER 


=0 
;*ALL UNUSED LOCATIONS FROM 4 - 776 CONT a A“. +2,HALT™ 
*SFQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 

s #LOCATION I CONTAINS D TO CATCH IMPROPERLY LOADED VECTORS 








=174 
DISPREG: .WORD 0 ;;SOFTWARE DISPLAY REGISTER 
SWREG: WORD O ;;SOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADORE SS(ES) 
JMP OeSTART ;; JUMP TO STORT ING ADDRESS OF progr 
JMP RetRT ;JUMP TO RESTART ADDRESS OF PROGRAM 
JMP MANTST STONE TO START OF MANUAL INTERVENTION TEST 
.=600 
JMP START ;JUMP TO STARTING ADDRESS OF ie ay 
JMP RSTST : JUMP TQ RESTART ADDTESS OF PROGRA 
JMP MANTST : JUMP TO START OF MANUAL INTERVENTION T 
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000046 
c900Se2 


003024 
009044 


pons 


001910 
Oidle 
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~SBTTL ALCT11 HOOKS 


EYe-tyh-tal-5-btak-t-5h eb -telab 5S Sl laalalahlelallahelalalababelelalalaelelalalaieeleleialebeeleleleleiie 
: HOOKS “$svecs. BY ACT11 


SVP sSAVE PC 
SengaD :;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
"WORD 0 ;;2)SET LOC.S2 TO ZERO 
"=$SVPC tt RESTORE Pc 


.=1000 
.SBTTL APT PARAMETER BLOCK 


cE hie esis OP ll 


Ser LOCATIONS 24 AND 44 AS REQUIRED FOR A 
hn teckel aE LET CO ee ee 


44 fone TO aT INDIRECT ADDRESS PNTR. 
SAPTHOR ;;POINT TO APT HEADER ek OCK 
=. $X :RESET LOCQTION COUN 
- SeeeNnbedTeeeehieEEEEeiss2 00050499 EUEEEEEEEEEEREREEEEEE EERE 
SETUP API core TER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 


SAPTHD: 

$HIBTS: .WORD QO 3; TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

$MBADR: .WORD S$MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 
200. 33 NGEST TEST 


STSTM: .W 
$PASTM: .WORD 200. 3; RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
IONAL RUN TIME ( (SEs) OF A PASS FOR EACH ADDITIONAL UNIT 


SUNITM: .WORD 200. “ADD 
"WORD SETEND-SHAIL 2 ; LENGTH MAILBOX-ETABLE (WORDS) 











et et et tt a a et at et at et et et et a a a et et a a a a a a a es a a a es ae a a ae a a es a a 
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001172 
1176 


200 
001202 
001204 
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000900 
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009900 
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-SBTTL COMMON TAGS 


5p RRKRRRRR REAR RE EER EER ERE EA EEE EA EEE EERE ER EEE EER EE EEE ER SE 
;*THIS TABLE ree VARIOUS COMMON STORAGE LOCATIONS 


USED IN THE PROGRAM 


SCMTAG: 


WW 
STSTNM: . 
SERFLG: . 


SBDDAT: . 


SALTOB: . 
$INTAG: . 


OOOO KOOO0O0OO-VDKOOK0OK0000 


oO 
ow 
“= 
wa 
me] 


(207 <377><377) : 
12/4 : 


«15> . 


«ler cr NE 
: CT FC! oneal 16 9 alii aaa 
‘aSTTL APT MAILBOX-ETABLE 


1H HEHEE AHHH HEHEHE HAHEI UHHH HEHE EHEE HEE EEX 
N 


pet 
GE _TYPE CODE 


AMSGTY SA 
A jiEBTAL ERROR NUMBER 
: TEST NUMBER 


SORES COUNT 
:IDEVICE COUNT 
~ $1170 UNIT NUMBER 








#44 SEG 0013 








;;START OF COMMON TAGS 


;;CONTAINS THE TEST NUMSER 
Pysialbtte ERROR FLAG 

beer INS SUBTEST Sead b Si. COUNT 

33 CON TAINS SCOPE LOOP 

;;CONTAINS SCOPE RETURN POR ERRORS 
sen TAS TOTAL ERRORS DETECTED 
;;CONTAINS ITEM CONTROL BYTE 

;;CONTAINS MAX. ERRORS PER TEST 
;;CONTAINS PC OF LAST ERROR yt aaa 
a TA ADDRESS OF *GOOD’ DAT 
;;CONTAINS ADDRESS a *BAD’ Data” 
;;CONTAINS ’GOOD’ Ned 

;;CONTAINS *BAD’ DAT 

; ;RESERVED--NOT TO ae USED 


;;AUTOMATIC MODE INDICATOR 
;; INTERRUPT MODE INDICATOR 


KBD BU UFFE 
titty PRINTER STATUS REG. ADDRESS 
He PRINTER BUFFER REG. Oe ar 
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SSAGE ADORESS 
oe LENGTH 
VI 

I 


HES 
*BU TYPE, OPTIONS 
8tTs 1S-11556u TYPE 


20503, 11/ 40204. 11/4505 


B=MEMORY MANAGEMENT 
IGH ADORESS,M.S. BYTE 
:MEM, TYPE ALi ai 

men. itre grie “= (Mish Brie} 
$00 NSEC CORE=00! 


sak 
etumetetytes 


5 SLkKs 
.LAST ADDR. =3 BYTES, THIS WORD AND LOW OF “TYPE™ | 


RESS B.S. BYTE 
"ADDRESS, SLKs2 
SS.M.S.8YTE 


—£-£60-2-z 
* © "Fe « 
ae 
tw 


Aa SAGAR 


~t-—4 2 -z 
mm * e 


ae) ane 
ish aoe 
, 


= . = 
oe y ‘ -_8 
Pare a oe Beebo “———*° «@ - “ae ” 
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.SBTTL FRROR POINTER TABLE 


oT «6 


A, rpRLE Re he Ne INFORMATION. ron ee oe : : 
ae artery, Hote RAtBER ty geld WH Tou Trex {N THE ip HE qs PERTINENT. 


ono + 
SANA A Ah lh Ah mae ile 


cue 


Z| 
= 
! 
4 
i 
b | 
— 
q 
a 

i 

(] 
° 

‘f 

- 

se 

® | 
re 

‘e 
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? 
. 

fq 
a 


et ee a el el et 


6: SE It 
Aitnete Witia 
Or Mee 


i 
Com Ooorm 


tOfur C006 ea 
eta 


un 


+s 
NoIOnMGs Oo 


i-4 7-2 


oOnonogo 


sot 


SAAT IATA TALE 
-CnOOn 
mocw 
O- be 0 
forunMd®d 
mom sc 
o-oo 


- —— 


me ee we ee ee oe ee 


NUMBER FOUND IN 


PERTINENT DATA IS . 


ehce ITEM IN THE TABLE CONTAINS 4 POINTERS elaine AS FOLLOWS: 


:;POINTS TO THE ERROR MESSAGE 
;:POINTS TO 3 DATA HEADER 
33POINTS TO THE DATA 

::POINTS TO THE DATA FORMAT 


;PRINTER ERROR BIT SET 


;PRINTER READY BIT FAILED TO SET 





am err THAT CAN OCCUR. 


;sPRINTER ERROR BIT FAILED TO SET 0 


sPRINTER ERROR BIT FAILED TO SET 
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ERROR POINTER TABLE 


oonono 
Omer 


oadIngd 
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Io ° o 
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Oooo 
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onooono 
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; ITEM 
; ITEM 


SITEM 


; ITEM 


> ITEM 


> ITEM 


: ITEM 


Se ee ee 
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#44 SEQ O016 






5 

Ens ‘ERROR BIT FAILED TO SET ON PRINTER DISCONNECTED 
O71 

OF! 

A 

evs sERROR BIT FAILED TO RESET UPON PRINTER CONNECTED 
O71 

OF] 

EN? sERROR BIT FAILED TO SET ON NO PAPER 

OT] 

OF! 

10 

EMi0 sERROR BIT FAILED TO RESET ON PAPER AVAILASLE 
671 

OF 1 

1 : 

ane sRESET FAILED TO CLEAR LP ERROR BIT 

OT] 

OF 1 









12 
Ene sRESET FAILED TO SET LP READY BIT 

O71 

OF] 

13 

ae sINTRPT. EN. BIT FAILED TO SET CLEAR LP STATUS 
OT] 

OF] 

14 

Em14 SINTRPT. EN. FAILED TO RESET 

OHI 

OT] 

OF 1 

15 

EMIS sMODE FAILED TO SET 

OH! 

abet 

OF! 


— eee 


o- 
o- 
4 


LEU (.0mM- 


wu 


FUT ITIUTITITI TUT Te o-- 


tet Mitt 


iit 


0-* + 0+ b+ BB B+ b= 8 8 8 b+ 0+ 0 he 0 he ha pop ape 


GIGIGIO 
wi 


iS4 


SOP OP CP OP CP OP OP OPP CP unary way 
t OOD OUP U Etat bee Serr 


0+ 0 + 0 0 +02 2 8+ be eh 8s eh ee 
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o01454 
801456 
O5i466 
d0i463 


Ondugo 
OoOoogm 
ood ed ek 
UW s 
R8a'> 

vom + 


Ooa0 
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CNUsTCrTN 
Woo Ee 
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ERROR POINTER TABLE 


o 


;MODE FAILED TO CLEAR 


[os | ae | ae | ae 
ovoom- 
N+ za 
o-oo 


| 


;READY FLAG CLEARED IN ERROR 


Oooo 
uv NOoOMmM 
o-- 099 


E20 N-tr-e~3 


= TU 


© 


;READY FAILED TO RESET UPON LOADING PRINTER SUFFER 


Oooo 
oven 


tze~- «N-4 


;ERROR-PRINTER ERROR SIT UNEXPECTEDLY SET 


onan 
0-0) 
*- 


Mun £ 
roe 


fu 


;REROY FAILED TO SET AFTER A DELAY 


NOdooo 
wound 
On 
omu OMmoOom 
rtm TNR 
0-2-9) 


Ww 


;ERROR BIT SET IN PRINTER 


oonooo 

TUR 

ovoonmuv OO 
<£- Nt 


(T° Cro 
-o—e-TU 


;RERDY SIT RESET IN PRINTER 


Oooo 


(nWe-G 


;PRINTER FAILED TO 


Oooo 
eT er 
frururue 
ob + 0-7" 
Mmuwor 
Mmaor-tu 


INTRPT. ON LEVEL INDICATED 


;PRINTER FAILED TO 





Nooo 


~ 
“I~ 


“orc LIT 


4 Gofue-to.0c~ 


coco 00 00D * §~ 


wa 


b+ 0+ b+ 0+ 0-2 b+ b= po Oe ho Bo he pope pe 


(oust 
a ial 


o-- 


oLVa8. Pll 


00:544 
001545 
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ERROR POINTER TABLE 


fie 


ie | as | oe | os] 


Oooo 
0-+6 +6 -9-< 
fuorurom 
b+ hbo) 
mun 


#88 SEO 0018 


;PRINTER INTERRUPTED ON LEVEL INDICATED 
;ERROR FLAG SET 


;TRAP TO LOC 4 WHEN ADRESSING LYV11 


a inanenl 


--- -_--ese- hl er -- ee an a es ae ee ee 















02 


M@INDEC-11-DZLVA-8 MACYL1 27(663) _4-JUN-76 15:51 PAGE S 
D2LVAS.P11 ERROR POINTER TABLE * - ##4 SEG 0019 

183 001564 177514 LVAD: AAS :LV-11 DEVICE ADDRES 

iss pp teee tao8d0 CVIV: Siiag LV=11 TE REUPT SEF FoR 

131 901570 0900200 LVBRL: APRIOR *LV=11 INTERRUPT LEVEL 

182 001572 900901 ADELAY: 1 :CPU DELAY CONSTANT 

193 3501574 O04000 DELNUM: 4099 : 

19§ 001576 od0140 KOOG1: 14 

13 001690 900036 KO002: 36 

187? 901802 17751 LVS: 177 

i8s S01604 177516 LVB: 177 

188 901608 op0200 LvV¢T: 200 

200 O01810 300202 LYVCT1l: 20e 

201 O018i2 900000 DSAVE: 95 

202 001614 900000 PSAVE: 0 

203 90161§ 900000 STCHAR: 0 

204 601820 900200 LASTCH: 200 

205 001622 000009 RST: 

206 901824 990000 BRLEVI: 0 

207 991826 000000 BRLEVe: 0 

262 001630 009000 BRLEV3: O 

208 001632 900900 TEMP: 0 

219 OC1634 99020 WIDTH: 132. 

211 001636 990102 WIDTHB: 66. 

2i2 391640 Od00200 WIDTHG: 128. 

213 O01s42 999900 GMOW1: 0 

214 00055 GMDWe: 6 

215 O01646 909000 0 

2ié 691650 900000 GMOW4: 0 

217 o01652 90089 G} 5 

212 OO1654 9000 SMOWS: 0 

ei3 656 5 : 2 

220 OO01660 009000 Save2: 0 


& a --——-  - +  e _— — 
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b+ 00 bbe oh ho he PUTED 
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TOT os oo en or oes 
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eat 
Boe200 


012637 
005037 


012737 


005700 
001092 
104400 
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ERROR POINTER TABLE 


001100 
001140 
001100 
014472 


002019 


coocc4 
002056 
177570 
177570 
177777 


OCe0&4 
009176 


001200 
000200 


001214 


006420 


000020 


000026 


001115 
091106 
001110 


000004 


177066 


001140 
001142 


001213 
001149 
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START: CLR RO 

a INITO 
RSTRT: INC RO 
INITO: 


-SBTTL INITIALIZE THE COMMON TAGS 
3; CLEAR THE COMMON nee, ac AREA 
i ga ;;FIRST LOCATION TO BE CLEARED 
cf (RE )+ ;;CLEAR MEMORY LOCATION 
A. <s »R& ;;DONE? 


LOOP BACK IF NO 
Kah + SETUP THE STACK POINTER 


: 107 VECTOR FOR SCOPE ROUTINE 
NOV #240 IslOTVEC 2; jLEVE 
MOV IERIE, SHETVEC iERT VECTOR FOR ERROR ROUTINE 
MOV #STRAP PaTRAPVEC j TRAP VECTOR FOR TRAP CALLS 
MOV #SPWRDN SHPURVEC 5 s POWER FAILURE VECTOR 
MOV #340 


CLR SESCAPE ICL EAR fue ESCAPE ON ERROR ADDRESS 
MOVB as SERMAX ALLOW ONE ERROR PER TEST 


MOV -+$L pees iI BAL IZe THE LOOP ADDRESS FOR SCOPE 


MOV PERR *SETUP THE ERROR LOOP BODES 
::SIZE FOR A sootiods SUITCH peghtTER. IF NOT FOUND OR IT IS 
-EQUAL TO A “=1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
M 3RERRVEC -(SP) OF CAVE ERROR VECTOR 
MOV #O4S,J#ERRVEC ::SET UP ERROR V 


#DSWR, SWR 
MOV #DDISP.DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
CMP #-1, aSWR >: TRY TO REFERENCE HAR 
BNE ::BRANCH IF NO TINEOUT TRAP Seturnen 
33AND THE HARDWARE SUR 
BR a NCH IF NO TIMEOUT 
4S: Noy #653, (SP) CET UP FOR TRAP RETURN 
6S$: Mov SWR /#3POINT TO SOFTWARE SWR 
MOV so tepaee DIS 
663: MOV (Pls DRERAVEC ;;RESTORE ERROR VECTOR 
CLR 3PASS 1 CLEAR PASS COUNT 
BITB s8APTSIZE, SENVM T USER SIZE UNDER RPT 
REQ &75 i Tee USE NON-APT SWITC 
a MOV #SSWREG, SUR t IND. use APT SWITCH RES TSTER 
TST RO pie HEADER? 
BNE INIT N 


TYPE  ,MSGO :TYPE HEADER MESSAGE 





ECTOR 
;;SETUP FOR A HARDWARE SWICH REGISTER 








MATNDEC-11-DZLVA-8 


DZLVAB.P11 


30 
53; 
333 
333 
534 
535 
53E 

| 

| 

| 

| 

| 


ee 





MACY11 &7(663) 





INITIALIZE THE COMMON TAGS 


13237 


001246 
001246 
001246 


000040 


ibe INIT; 
e . 


001570 
001624 


OO1€30. 
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102 


15:51 PAGE 7 
Nov BASE LVAD 
MOV BASE; LVS 
MOV SoASE ve 
ADD LVB 
MOV seb yi LVI 
BIC #170000, LVI 
MOV LVIV,LVVCT 
MOV Lviv, HET 
ADD LYVCTL 
MOVB Siectisl, LVBRL 
CLRB = LVSRL#1 
MOV LVBRL, BRLEVI 
SUB #40, GRLEVI 
MOV CvBaL. ERLE V2 
MOV LVBRL: BRLEV3 
ADD #40, SRLEV3 





;LOAD DEVICE ADDRESS 
: LOAD BaVice pie Ey 
;LOAD DEVICE ADDRESS 
; UPDATE SUFFER ADDRESS 


LOAD VECTOR ADDRESS 


;LOA Ver ton ADDRESS 
LOAD VECTOR ADDRESS 
;UPDATE VECTOR ADDRESS 
;LORD PRIORITY 


sat UP BR LEVEL 

LEVEL=-1 se TeATED 
‘BR LEVEL= INDICATED 
SET UP BR 


VEL 
BR LEVEL = +1 Tote ATED 





#44 SEG 0021 





MAINDEC=11-DZLVA ~ 


OZLVAB.PL1 


carne fu 
weer ee 


deer 


002344 


pogaae 


092 
002360 


002362 





104011 


poe 


104014 
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J0e2 
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TEST FOR TIME OUT ERROR 


po9004 

nge3e? 
177266 

177264 


000804 


177240 


177224 


000340 
000190 


000100 


177162 
000100 


000004 


177776 
177202 


177172 


177152 


bp RRHRR RRR R EKER EAAE ARH EE EKER RARER EKER EKER EERE EEE ER EE LESSEE 
;STEST 1 TEST FOR TIME OUT ERROR 
j ERE REAR E EAHA ERE R ERE RA REE REE REAR EEEEEEREEEERER EE EEE REALE ES 


t$T1: SCOPE 
MOV 


DERRVEC,-(SP) ;SAVE ERRVEC 
MOV BIS, d8ERRVEC  :SET UP FOR TINE OUT ERROR 
CUR atv VS sROORESS L 
CLR aLvB 
BR 2$ : j aSKIP NEXT | INSTRUCTION 
1S: CMP (SP)+, (SP)+ : POP S OFF THE STACK 


ERROR 31 SCRNNDT MODDRESS BOARD 
2s: MOV (SP)+,9#ERRVEC ;RESTORE ERRVEC 


: blest 2 TEST FOR NO ERROR FlaG Teel ailie ve merree 
‘TE TEST FOR NO ERROR FLAG, TEST BITIS IS RESFT 

jpeveetyeesuseunsanecunennconseaenntionenneesteneeaneastesseay 

RESET ;CLEAR THE WORLD 

TST aLvs TEST LP STATUS ERROR 

BPL TST3 : 

ERROR 1] ERROR RESET FAILED TO CLEAR 

> LP ERROR BIT 


Di tag ge ee  geceracatenteny 
S TEST THAT READY FLAG TEST BIT? IS SET 
Meret iii itt iti iittitit ttt iteiit tit rtit ttt i ttrt ttt res 


+473: SCOPE 
RESET : CLEAR THE WORLD 
TSTB =_ ALVS sTEST grr 
BMI TST4 : BTNEXT TEST 
ERROR 12 Enon RESET FAILED TO SET 
LP READY BIT 
© SEKALELKE FLAS AEA FLALLA SERA KALE RA LE SRASDSSSRSSSASRE SHES SESERSHEE 
TEST 4 TEST THAT INTERRUPT ENABLE MAY BE SET AND CLEARED 
oy be eaapaemmn ge cnn a0 Pr 
BIS 0, PSW ;RAISE PSW 
Nov ware. aLvs :LOAD BIT & INTC LP STATUS 
BIT #BITS, aLVS ;TEST BIT & 
BNE 1$ ::BRANCH OVER 
ERROR 13 ERROR INTERRUPT ENABLE BIT 
AILED TO SET 
1S: CLR aLvs CLEAR LP STATUS 
BIT 88176, ILVS :TEST BIT - 
BEQ TSTS -GO TO NEXT TEST 
ERROR 14 ERROR, INTERRUPT ENABLE FAILED 


(BIT &) 




























### SEQ Of22 










02 








MAINDEC-11-D2LVA-8 MACY11 27(663) 4Y-JUN-76 15:51 PAGE 9 
DZLVAB.P11 TS TEST THRT MODE MAY BE SET 





### SEQ 0023 


2g6 5 REAAA AAA A KEK AAAEKAE ERLE ELLE REALL AREAL ER ERALA PELE KERLERERL ELAS 
(3) SSTEST S TEST THAT MODE MAY BE SET 

(3) © SARAH AA AHS KAK AAS KAA RAARERA LEAH ARKH KLE RKL KL KAR KLELA RAF KARE LLALFFES 
(2) 902434 oc0004 +815: SCOPE 

287 902436 Ole7?? O00001 177136 MOV #B1TO, aLVS sLOAD MODE 

2ag oos444 oode4C NO 


283 0020446 O3e777 O00001 177126 SIT #8I1T0,aLVS ; TEST BIT F 
230 002454 001001 BNE TST6 3,60 TO NEXT TEST 
231 002456 104015 ERROR 15 sERROR, MODE FAILED TO SET 


233 ii EE tet Ae on ok 
(3) ;RTEST 6 TEST THAT MODE MAY BE CLEARED 

(3) © RHELRARARARAERA RE RHLE AERA FREER SKLLSFLE RAKES LALA FREER ELH SF LA ELLE 
(2) 02469 900004 a téts: SCOPE 

294 002462 Ole777 009001 177112 MOV #BITO, ILVS ;LOAD MODE 

e3 o92470 Ol2777 ooo000 177104 MOV #80, aLVS ‘LOAD NOT ’MODE’ 
















e937 O00e500 Q32777 000001 177074 BIT #8170, aLVS ; TEST_BIT oF 
e398 00e506 001401 BEQ TST? 3360 TO NEXT TEST 
2399 002510 104016 ERROR 16 ERROR, MODE FAILED TO CLEAR 


301 5 RRRRERERERERERE REAR ELAR A RAER ER AREER EERE RARE E EEE R EEL R RARER ERLE S 
(3) TEST 7 TEST THAT LOADING THE BUFFER RESETS READY 

(2) GSH EBB HEH HEHEHE HEHEHE HEHE BENS HE HB EBB BEO HEBER 
(2) 902512 900004 i877; SCOPE 

302 902514 108777 177062 TSTB = ALVS sTEST FOR READY 

303 092520 100401 BMI 1§ - BRAN 

204 o92522 104017 ERROR ERROR NREABY FLAG CLEARED IN ERROR 
305 002504 012777 000101 177052 1S: MOV ol ,aLVB s ENSURE NON-ZERO 

306 602532 012777 O00015 177044 MOV #15. aLVB : MOVE MOR FG THe PRINTER BUFFER 
307 002540 105777 177036 TSTB Ss aL VS s TEST BIT 7, IS IT SET 

308 902544 100001 BPL 2g BNC oy ER 

309 o02546 104920 ERROR 20 rER RROR RAPA Y FAILED TO RESET 

310 : UPON’ LOADING PRINTER BUFFER 

311 O025S5G 005777 177026 23: TST aLvs :TEST BIT 15 (ERROR) 

3l2 002554 100001 BPL TSTIO ::IT’S SET, GO TO NEXT TEST 

13 o0255_ 10402! ERROR 21 Fie PRINTER ERROR BIT UNEXPECTEDLY SET 
315 prec in TEST THAT READY WILL SET AFTER A DELAY 
(3) TEST 10 TEST THAT READY WILL SET AFTER A DELA 

(3) of BE Rk 
(2) 02560 900004 . 0: SCOPE 

316 002562 612737 oODDD4O ‘001612 MOV 840, DSAVE 

317 092570 612777 GO0001S i77006 MOV #15'aLVB sPRINT A CHARACTER 

318 602576 004737 O06322 1S: JSR PC HELAY! 

319 O02602 105777 176774 TSTB Ss ALS TEST READY 

320 02608 100404 BMI TSTil ::BRANCH IF SET 

221 002610 005337 oo1612 DEC DSAVE ;No T SET, TEST COUNTER 

322 002614 9601370 BNE 1$ ‘ BRANCH 


ge3 002616 104022 ERROR 22 Eon, AER ee FAILED TQ SET 

























MAINOEC- 1 Roan’ f 
DZLVAB.P1i 


002$20 
02622 


o03024 


093026 
903030 


li 


ocoo04 


012737 
Qle777 


104026 


000401 
O22bes 


peesae 


176722 


009100 


001614 


176654 


000340 
000240 
17 


e632 


003030 
0 0 


006354 
000100 


MACY11 27(663) 
TEST THAT THE PRINTER WILL INTERRUPT 


titeet dl TEST THAT TE PRINTER uity INTER 


177776 
176750 
176744 


178710 
177776 
001614 


177776 
176640 


176626 


006354 


176556 





" Y=JUN-76 


#11: 


1$: 
2s: 


3$: 


4S: 
SS: 


itesT 12 TEST THAT THE PRINTER CAN INTERRUPT ON LEVer iNoe 


‘ETE TEST THAT THE PRINTER CAN INTERRUPT ON LEVEL INDICQTED -1 
| peaeebpeegnesseaneaneonssasesseoseestossenstostensensiontoneas 

MOV #340, PSW ;LOCK-OUT 

MOV #240; aL VB PRINT 
1$: [37 al vs" ;WAIT FOR A FLAG 


es: 


RET2: 





;*TEST 11 TES 
5 RRR REE EERE HERR EER REE EEE KERR EERE EERE EERE REESE REEER 
E 


MOV #RET2 SLVVCT SET UP INTERRUPT VECTOR 
MOV #340, ILVVCTL 

BIS #B1TS, ILVS SET INTERRUPT ENABLE 

MOV BRLEVI , PSiv LOAD PSW WITH LEVEL INDICATED -1 
MOV DELNUM; DLY1 ELA Y 

DEC OLY! 

BNE 2s 

BIC #BIT6, aLVS 


ERROR 26 : ERROR 
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##4# SEQ 0024 









THAT THE PRINTER WILL INTERRUP 






SCOP 

















MOV #340, PSW sLOCK OUT INTERRUPTS 

MOV #4$. ILVVCT ; LOAD VECTOR RETURN 

MOV #340, aLVVCTI 

TST TEST FOR ERRORS 

BPL pe -: BRANCH IF NO ERR 

ERROR 23 | : ERROR ERROR BIT SET IN PRINTER 
TSTS) = aL’5 ;TEST FOR READY 

SM? 23 - BRANCH Re SET 

EFROR 24 ERROR READY BIT RESET IN PRINTER 
Bis #100, dLVS LOAD INTERRUPT ENABLE 

MOV #0, PSI ‘LOWER PRIORITY 

MOV #100, PSAVE :SET UP A DELAY LOOP 

DEC PSAVE sDEL RY 

BNE 33 LOOP 

ERROR 25 ‘ERROR, PRINTER FAILED TO INTERRUPT 
BR o$ :: BRANCH AND CLEAR INTERUPT ENABLE 
CMP (SP)+, (SP)+ RESET STACK POINT 

CLR aLys :CLEAR INTERRUPT ENABLE 




























; REMOVE ae e ENABLE 






NTER Farle 19 INTERRUPT 
: ON CF vet 


L_ INDICATED HECK LY BR 
: LEVEL ene tee FOR PROPER BB tEVED 
TST13 3360 TO NEXT TEST 

(SP)+, (SP)+ 
















MAINDEC-11-DZLVA T 
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a 


003142 


003144 
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TEST THAT THE PRINTER CAN NOT INTERRUPT ON LEVEL INDICATED 


5 RELHRA ALARA AAA RK ALAR AAA AEE RAKE KERALA ERR AE RELL SE REELERERLELELE 






#4% SEQ 0025 


















SATEST 13 TEST THAT THE PRINTER CAN NOT INTERRUPT ON LEVEL INDICATED 

0 . RR SE ee ero same ane eee eee 
Brees? 00340 177778 MOV #340, PSW ;LOCK = OUT 

12777 000240 176534 MOV #240; JLVB : PRIN 

105777 176526 1$: TSTB = LVS" WAIT FOR DONE 

10995 BPL 1$ ; 

012777 003132 176522 MOV WRET3,OLVvCT © ;SET UP INTERRUPT VECTOR 

O1e777 000340 176516 MOV #340, ALVVCTI 

52777 000100 17602 BIS #BIT6, OLVS SENABLE INTERRUPTS 

013737 001626 177778 MOV —- BRLEV2, PS LOAD BR LEVEL INDICATED 

Diaea? OO1e74 06959 MOV DELNUN, DLY1 DELAY, EXPECT NO INTERRUPTS 

005337 006354 23: DEC —- OLY 

001375 BNE BS 
042777 000100 176452 BIC #6178, ALVS ;CLEAR INTERRUPT ENABLE 
000405 ER -GO TO NEX 

42777 OO0100 176442 RET3: BIC erie, aLvs fAVEAR INTERRUPT ENOBLE 
022626 CMP (SP)+! (SP)+ ;POP 2 WORDS OFF THE STACK 

104027 ERROR 27 ZERROR, PRINTER INTERRUPTED ON LEVEL 






: FOR SROpeR BR LEVEL 
iT ia TERT THAT THE PRINTER Con beaT 7 SRHSKKHRHEHZAHEHKERE 












T 14 TEST THAT THE PRINTER CAN NOT INTERRUPT ON LEVEL INDICATED +1 
jeeeea ne eansaaaeineneananeaneeaeaneceaaaeah KRESS SESS LEK SL ER 
oooc04 ue 
012737 000340 177776 iy #340, PSW sLOCK - OUT 
012777 000240 178422 MOV #240, ILVB : 
S777 176414 1S: TSTB = ALS ‘WAIT FOR DONE 
100375 BPL 





;SET UP INTERRUF~ VECTOR 






1$ 
003244 176410 #RETY, ILVVCT 
#34 VVCTI 











012777 900340 176404 MOV 0, aLv 

2777 000100 175370 BIS BIT, aLVS ENABLE INTERRUP “S 
013737 001630 177776 OV BRLEV3, PSid ‘LOAD BR LEVEL I/DICATED + 
013737 001574 006354 OV DELNUM, DLY! *DELAY, EXPECT NC INTERRUPTS 
005337 006354 2S: DEC BLY! 
001375 BNE 4 
042777 000100 176340 BIC #8176, aLVS ;CLEAR INTERRUPT “NABLE 
o0d40s BR TST1S’ =G0 TO NEXT TEST 
942777 OOO100 176330 RET4: BIC #B1T6, LVS :CLEAR INTERRUPT ENABLE 
022626 CMP (SP)+! (SP)+ *POP 2 WORDS OFF THE STACK 
104027 ERROR 27 ; ERROR PRINTER INTERRUPTED ON LEVEL 





NDICATED +1, CHECK LV SR LEVEL 
FOR PROPER BR LEVEL 


lar Ur et ae Oe et ee 






if 





U 
t-te 4-1-5 hhh aha lahalaniahhchaiaialehaiahaichelaialhaiaiaieininianiaiaiainie 








00004 tét15: SCOPE 
013777 001610 176320 MOVs LVVCT1, ALVVCT 
005077 176316 CLR = av 
000005 S 

04737 o0b232 JSR PC, CRLF 








MAINDEC- fT ris 


OZLVAB.Pil 


(2) 003200 


4 

u1? Op3a09 
418 anaais 
421 093320 
422 003324 
423 003326 


425 003330 
003 


000094 
000 

Bossa 
B73 
904537 
000077 
000100 


004537 
001534 


0 
001357 
004737 


MACY1I 
EAN uP 


CLEA 


006360 


000100 


006204 


o0S&02 


006204 


005602 


001632 


006232 


7 (663) 


001632 


4=-JUN-76 


15:51 PAGE le 


irre ia DATA TRONGFER PATH TecT 


ATEST 


DATA TRANSFER PATH TEST 


Saga 2+ ans ee ei actin tein me eM ment lcatE Ne 
: 0 


tST16 
DTPT: 


DTPA: 





RS, AMSG 
#100, TEMP 
RS,OTPSR 


RS, XPRNT 


RS,DTPSR 


RS, XPRNT 


TEMP 
DTPA 


PC, CRLFX 





; CRLF 


;PRINT HEADING 
;SET-UP A COUNTER 


;SET-UP BUFFER 
SOCTAL °?° 


:OCTAL ’a’ 
;PRINT THIS LINE 


;SET-UP BUFFER 
SOCTAL °U? 
SOCTAL *#? 


;PRINT THIS LINE 


;COMPLETED FLLL COUNT? 
BRANCH IF NOT COMPLETED 








##% SE 0026 





ee 





MAINDEC=12-D2Lv8-8 MACYLL 27(663) 4-JUN-7& 15:51 PAGE 123 
D2 vas.P!! 716 DATA TRANSFER PATH TEST #9 SEQ 0027 
$33 
$30 PLR PRRSERES ESSE EE SESE SERRE EE ESE EESEEESESESE ESSE SEAS EES ES ESESE SESS 
(3) S&TEST 17 PRINTABLE AND NON-PRINTABLE CHARACTERS 
.2) SSRSSRSSSSSSSSSSSSSSSSESSSSESSERSSSSESESSESS SSS SESE ESSSSEE SESS + HF FSHs 
(2) 003266 000004 tit 15, Snipe 
Ss) 
442 003372 000240 PNPC: NOP 
wu3 053372 604537 006360 758 RS, AMSG =PRINT HEADING 
way 853976 O07343 “3 
wes 553406 Si2e?s? o00240 001832 MOV 840, TEMP sSET-UP PASS COUNT 
set 
pal ;LEGAL PRINTABLE CHARACTERS 
75 
#43 003408 912701 909040 LECHA: MOV 840,21 ;SET-UP STARTING CHORGCTER 
$52 OO341le 004527 oos544 Tce oe 1rea TAon” oueces WtTw i Sag “woseorrcoc 
ud sane 4h Ga eleTh oy 4 AUUUL 
453 003420 04537 o05602 JSR RS, XPRNT SPRINT THIS LINE 
455 03424 001575 k000! 
455 093426 912737 o00001 006300 MOV 81, CRONT sLOAD COUNT 
456 COM 04737 S0be40 SR pC’ cRLFA 
458 ;NON-PRINTING CHARACTERS 
#5 003440 012700 015106 MOV aBUFFER, RO sLOAD BUFFER POINTER 
461 303444 012701 000000 Moy aC >LORD STARTING CHARACTER 
462 053450 150120 NPCLE: MOVB RI, (RO) "LOAD A CHARACTER INTO THE SUFFER 
| 463 So6e $600) NPCLC: 7! T INCREMENT CHARACTER 
| 469 DOsN54 Ge2791 900004 Ci 84,7 STEST FOR A ECT’ CHARACTER 
wes seetb9 i ; BEQ npeLé :SRANCH IF § 
| $66 DO5462 322701 ooociz “Mp 812,8: :TEST FOR A °LF* CHARACTER 
| SER Bosses 58175} Sold PRSANCH IF SAME 
468 SO3470 02270! 900014 “Me 815,81 STEST FOR A FF’ CHARACTER 
885 7S 017 EO necic : SRANCH IF SA 
| 470 503476 52870: ocoo:s Me 815,81 :TEST FO A CR’ CHARACTER 
3/¢é ex) = O2e7 j wwwe CM 2 0, e 37 sT = Y RRR OT 
“22 Hh: sei38 iia se, EE iSO IF ‘or pet ? 
474 693612 llereo 900 OV 815, RQ)+ 200 OR’ CHASACTE! 
475 SE3576 {1525 SE5Ei2 MOVE «812, (RD)¢ :CoaD A LEY EMaRAcTES 
j 3/8 
“7? 002522 904827 oDseDe ISR RS, XPRNT :PRINT THIS LINE 
122 66352e 051650 xooce 
wed 903530 905337 001622 DEC TEME FINISHED A FULL PASS? 
461 03534 501324 BNE LECHA :BRANCH IF NOT COMPLETE 
- - 


463 003896 004737 006232 JSR PC, CRLFX ;CR-LF 





is 


~ UU 
PAE Utoe 


nnn -—~- 
IC IC WMUGI 4 


t 


2 totue +O). 000 NO ULE Girne OD > a + 


COVCEVEPUUET CUCU CIVCETCEUCTUCET CED CFTC 


TUTUITUTUTU eb 0 «0 <0 + 0 0 oe 


903242 
903544 
003546 
0035Se 
J03SS4 
O03$$2 
paaese 
00387 


003616 
003620 


003656 
C3662 


AnNsens 


ww! we 


joa, 


000004 


1273: 

213701 
204537 

652634 


O62 
922737 ” 
001361 


004737 


po0004 
poceso 


013701 
004537 
001534 


“904837 


001634 
0627 


=25555 


wes! 5 


001361 


004737 


MACYL1 é7 (663) 
PRINTABLE AND NON-PRINTABLE CHARACTERS 





OCi6i& 


001616 





4-JUN-76 


15:51 





CO3 


PAGE 14 








##¢ SEG 0028 


5 ERSRARRERRRARSERS LAS LA RA LEER AES AA LSE AAEASSESFESEA LFA FEFSSL SSF SASS 


rSTEST 20 


SINGLE CHARACTER ACROSS ALL COLS. 


‘96 CHARACTERS» 


s RRELEAERERASREH ESAS LES ARESE SAFES SLEASASES SA PEALE LS LESS SS LESSEE 


} 720: SCOPE 


SCPL: NOP 


SCAC: MOV 


JSR 


RS, AMSG 
#40, STCHAR 
STCHAR,R1 
RS, FILBUF 
RS, XPRNT 


#1, STCHAR 
#200, STCHAR 


PC, CRLFX 


;PRINT HEADING 
;SET-UP STARTING CHARACTER 


;LOAD Ri= 1 CHARACTER 
;LORD_A BUF 


FER WITH 
: THAT CHARACTER AND WIDTH <BYTED 
;PRINT A FULL LINE FROM THE BUFFER 


;UPDATE THE CHARACTER 
TEST FOR FINAL CHARACTER 
BRANCH IF NOT COMPLETED 


“"CR-LF” 


Oe eet oN Nhat tek he lt Stalag tated + 
él 


; #TEST 


ROTATING CHARACTERS ACROSS ALL COLS. 


(96 CHARACTERS) 


SEPA eapesautetpint oene insta nee arragke: pp tte: 


tér21:  ScoP 
RCPL: NOP 


RS,AMSG 
840, STCHAR 
STCHAR,R1 
§,LIC 


RS, XPRNT 


PC, CRLFX 


ae ee + ee ee 


;PRINT HERDING 
;SET-UP STARTING CHARACTER 


;LOAD RI=TO CHARACTER 
ign A BUFFER TARTING WITH 
T CHARACTER AND WIDTH <BYTE> 


sPRINT A FULL LINE FROM THE BUFFER 


sUPUATE pe STARTING CHARACTER 
;TEST FOR FINAL CHARACTER 
:BRANCH fF NOT COMPLETED 





MAINDES=11-DLVA-8 


DILVAB. Pil 


NE 


004024 
094030 
004032 
O4O3IE 
O0404e 


OO4044 


7S 


000094 


ton 


is 


004537 
001634 


as 


001634 
00S237 
008.337 


001362 
004737 


MACY21 7 (663) 


PAG 
ROTATING CHARACTERS ACROSS ALL COLS. 


006360 


001634 
000000 


005672 


005602 


003742 
003746 


oosé0e 


0049 16 
004022 


006232 


DOS 


GE iS 
(96 CHARACTERS ) 


4-JUN-76 15:51 





SSSRSSSESRSRESRASLALARAASEESSLASA SEAS SSERSELSFERSS SSE SARS SSSE SASL SSS 
: ATEST 22 DOUBLE WEDGE PATTERN (CHARACTER) 
SRERHRERE LHASKSSSSSSSESSEAAASSLESSSSSLSSSSRESSESSSSFEAESSS SSS LES 


+4122: SCOPE 

; q iL LEFT WEDGE > ) 

-OBW: NOP 
JSR RS,AMSG 
M97 


MOV WIDTH, OWPAR 
MOV #0, OWP8S 


DWPA: JSR RS, WOGSUB 


DWPAA: 80. 
49 
DWPBB: 0 
JSR RS, XFRNT 
WIDTH 
DEC DWPRA 
BEG DWRW 
INC DWPS8 
BR DWPA 


;PRINT HEADING 


sSET-UP INIT 
PETIHE HNETEES 4,37 PHARACTER HiOT 


360 _ TO DOUBLE WEDGE SUSROUTINE 
; OCTAL AIRC TER utes LST CHARACTER 


IOTH 
:QCTAL OF Hs yee CHARACER 
:2ND SuSRAE cf WID 


;PRINT A FULL LINE 


; DECREMENT 1ST CoenAC TER WIDTH 
:BRANCH IF COMP 

; INCREMENT =ND SE EACTER WIOTH 
: BRANCH EACK AND TEST NEXT LINE 


j [IOOREGEDOORODIOSSHLHLELELEENOSEREAOLORESOREOREREREDEEDEREO OOD 


; AEST 23 DOUBLE WEDGE PATTERN 
"eat aaalgaae tne eeaecceam aman cramine: Seine cuinirmnat 


722: OPE 
 CERIGHT STEDRED 


DWRAW: MOV ve 
MOV Mae H, DWPDD 


DOWRWA: JSR RS, WOGSUS 


40 

DWPCC: O 
177 

DWPDD: 8C. 
SR RS, XPRNT 
WIDTH 
INC DWPCS 
DEC DWPDD 
BNE DWRWA 


JSR PC, CRLFX 


; SET-UP ee LST CHARACTER WIDTH 
;SET-UP INITIAL 2ND CHARACTER WIDTH 


:G0 TO DOUBLE WEDGE SUSROUTINE 
“FIRST CHARACTER WIDTH 
*SECOND CHARACTER OCTAL VALUE 
:£ "COND CHARACTER WIDTH 
PRINT A FULL LINE 

s INCREMENT FIRST CHARACTER WIDTH 
:DECREMENT SECOND CHARACTER WIDTH 
“BRANCH IF NOT COMPLETED 


;“CR-LF* 





CHARACTER WIDTH 








MATNDEC=21-DILVA-8 
T23 


DILVAB. Pil 
z 
(3) 
(3) 
(2) 904¢50 
S73 
Ty 04 
7S O04 
228 pee 
Bo seis 


3 
S86 004140 


COUN UNTO OOO 


Ono ow) co 
Tr bt idee wed per’ 
€ 
t 


094737 





MACYLL 27(663) 
DOUBLE WEDGE PATTERN 


006024 
Q90001 
006024 


00232 


wwe vhs& 


001616 
001615 
001816 
OO1E1& 
001616 
OOi616 
001616 
001616 


4-JUN-76 


15:S1 


—— 


PAGE 16 


03 


:: tEep og aneic CRAPH MODE eat LELEFLEEFELES 


:4TEST 24 


tér24; 
GMTO: 


SCOPE 


GRAPH MODE TEST 
bp RRR RERERREEEEEEREREREREERE RS EEEEES EEAEEE ESSE EE ESAAE EASE ES ESE SS 


RS. AMSG 
#200, STCHAR 
pc Baars 
#109, STCHAR 


#1 STCHAR 
PC’ BGMTA 


PC, CRIFX 


ee ee ee ee 


;PRINT HEADING 


feLor BIT 7 
TPLOT BIT & 
;PLOT BIT 5 
'PLOT BIT 4 
{PLOT BIT 3 
:PLOT BIT 2 
IPLOT BIT 1 
‘PLOT BIT 0 


7"CR-LE™ 


### SEQ OC20 





een ee eee eee LT a ce 























FO3 





MAINDEC-11-D2LVa-8 MACYL1 27(663) 4-JUN-76 15:51 PAGE 17 
DZLVAB.P11 T2s GRAPH MODE TEST #4#% SEQ 0021 
s3° 7 =  SRERSSRESREA HAASE SSSA SERPS LAL E SSE SRA EAA SES HAE PRS FFESSESSSSESSFAESE 
(3) ; #TEST 25 GRAPH MODE TEST 
(3) j RRKRRHRAR ELLA KERR RARE LAA E RE RE RELA LE LE RAL ERE LER ER ES LES AES SESS 
(2) oO4208 000004 T25: SCOPE 
32 sACCUMULATING BIT TEST 
500 oc4210 900240 GMT1: NOP 
691 O042i2 O04S37 906360 JSR RS, AMSG :PRINT HEADING 
$02 oOO4216 OO07&6e2 M39 
£03 904220 912737 O00200 O0lb16 MOV #200 STCHAR : 
504 O04226 O004737 O06024 JSR C. BOMT :PLOT BIT 7 
S05 004232 912737 000300 001616 MOV Ate STCHAR : 
506 904240 004737 006024 JSR PC, BGNTA *PLOT BIT 7, & 
67 694244 012737 000340 oni616 MOV #340, STCHAR : 
$08 o04252 004737 o0S024 JSR PC, BGMTA :PLOT BIT 7, 6, 5 
£58 04556 012737 O00360 OOltIs MOV Bee STCHAR : 
$10 04264 004737 906024 JSR PC, BGMTA -PLOT BIT 7, 6, 5, 4 
611 054270 012737 000370 colels MOV ie STCHAR : 
612 004276 004737 O06024 JSR PC, BGNTA :PLOT BIT 7, 6, 5, 4, 3 
612 904302 012737 000374 o01616 MOV 8374, STCHAR 3: 
S14 904310 909737 906024 JSR PC, BGMTA :PLOT BIT 7, 6, 5, 4. 3, 2 
615 004315 012737 990376 oo1616 MOV a? 5, STCHAR : 
616 004322 004737 006024 ISR B&MTA :PLOT BIT 7, 6, 5. 4, 3, 2, 1 
$17 304326 012727 090377 oolsl& MOV Ate STCHAR : 
618 904334 904737 O06924 JSR PC, BGMTA sPLOT BIT 7, 6, S, 4, 3, 2, 1, 0 
$19 004340 012737 900900 oolel6 MOV #80; STCHAR : 
eco 0 004346 O04737 O06024 =. .- ISR PC‘ BGNTA :PLOT 0 
< 
S22 5p RERRRSRAR RARE LF RRAS EARLE SALE LAAL HARE ALLA ELLA AA LL ARATE RE ELE LA ATES 
(3) t&TEST 26 ALTERNATING ONE AND ZERO TEST 
( 3 ) © WM ess ners sonnei ose pence arn rato semen eee neae 
ig) o043S2 o00004 +ét25: SCOPE 
S24 004354 o00240 GMT2: NOP 
525 904356 004537 006360 ISR RS, AMSG sPRINT HEADING 
626 004362. 007741 M310 . 
S27 004364 012737 o00007 oD1E22. MOV = sa7, TEMP 
628 004372 012737 000377 OO1S16 GMT21: MOV #377, STCHAR ‘é 
B29 004400 004737 006024 JSR  —- PC, BGMTA sPLOT 377 
$36 904404 612737 000900 oolblE MOV #0’ STCHAR 
631 04412 605737 906024 JSR PC’ BGNTA LOT 0 
$32 0441S 995337 001632 DEC TEMP DONE ° 
33 B04422 603363 ONE GMT2! 


ee eS ee 








MACYL1 27(663) 4-JUN-76 15:51 PAGE 18 
DZLVAS. Pll Aree ALTERNATING ONE AND ZERO TEST #4#* SEQ C022 
636 
$37 $ © RERARA ASR RAE K HRA LARA ASA ARE SHEKEL RASA AA SALA SESS SARSRASE SASS SS 
(3) :&TEST 27 DIMINISHING BIT TEST 
(3) © © RHRERLREK RH RSE REESE RRAL HLL LESS LASSE ERS RELL ERAS RASA LESS RSS LSS LSS 
(22 904424 90004 t§t27: SCOPE 
639 904426 990240 GMT4: NOP 
640 904430 904537 006360 ISR RS, AMSG 
64: 604434 910030 M311 
S42 904436 912737 000377 O01616 MOV #377, STCHAR : 
843 904444 004737 O06024 JSR PC, BGMTA :PLOT 377 
$44 004450 912737 000376 001616 MOV #376, STCHAR : 
B45 004456 004737 006024 . JSR PC, BGMTA :PLOT BIT 7, 6, 5, 4, 3, 2, 1 
B46 904462 012737 009374 ON1616 MOV #374, STCHAR : 
ey? 004470 604737 908024 ISR PC, BGMTA :PLOT BIT 7, 6, 5, 4, 3, 2 
é48 004474 912737 000370 oo1e16 MOV 4570 STCHAR : 
$43 904502 004737 9006024 ISR BONTA :PLOT BIT 7, 6, 5, 4, 3 
50 004506 612737 000360 o01616 MOV ast STCHAR : 
51 004514 004737 O060e4 ISR PC, BGMTA :PLOT BIT 7, 6, 5, 4 
&52 904520 012737 900340 OD1S15 MOV #340, STCHAR 
$53 004526 004737 006024 JSR PC BAMTA ,PLOT BIT 7, 6 5 
654 O04532 912727 600200 o01616 MOV #300, STCHAR : 
gS5 o04540 004737 706024 JSR PC, BGMTA :PLOT BIT 7, & 
$55 004544 012727 990200 o01616 MOV #200, STCHAR ; 
g57 o045s2 064737 O06024 JSR PC, BGMTA :PLOT BIT 7 
s58 04556 012737 O00000 o01616 MOV #0; STCHAR : 
553 004564 004737 o06024 ISR PC, BGMTA :PLOT 000 


661 904570 004737 Obese JSR PC, CRLFX s"CR=LF™ 








ee ne ee 
- 





MAIN 
DELVAB.Pil 


(2) OO4S74 
6&4 90457 
665 00460 
£6 04 


076 
713 005100 


ea ee 


C=11-DZLVA-8 





T30 


001339 
013737 


[obses 


MaCY11 


006360 
001640 


BDieNe 


001646 
000777 


001642 


001640 


001650 


oo90c0 
00i6s2 


OO1644 
001642 


000377 
001654 


000123 


OO1E4E 


001650 
001642 


O0E232 


27 (663) 
GRAPH-MODE DATA 


C01642 
001644 


001646 
001659 


OC1i644 


001646 


001642 
001650 
001644 
001646 


001652 


001654 


001644 








HO3 








4-JUN-76 15:51 PAGE 19 
WEDGE (LEFT WEDGE) 


fy RRRRARAARRA RRA LE LAKE REL AK RE LAA KER ALAR ERE REK ALLA FE LERARELLE FELL 


S4TEST 30 GRAPH=MODE DATA WEDGE (LEFT WEDGE) 
eS BR ee er ee 
ISR RS, AMSG :PRINT HEADING 
MOV WIDTHG, GMOWL § ;SET-UP HORIZ. COUNT 
GMDWA: DEC GM ; DECREMENT WIDTH COUNT 
MOV ta? GMDW2 LOAD A FULL GRAPH DATA 
MOV 1, GHOW3 i198 a} IT MASK 
GMOWB: MOV SrOut GMDW4 A HOR 12. SUB-COUN 
MOV aBUF FER, RO itOnd He BUFFER POINTER 
GMDOWC: TST GMD ; TEST FOR LAST HORIZ. 
BEQ GM DO BRANCH IF Leer 
MOVB 8377, (0)¢ : BRAN A FULL GRAPH DATA 
DEC GMOW4 seo 6 Fu SUB-CO 
BNE GMDWC :BRANCH IF_NOT COMPLETE 
GMOWD: MOVB GMOW2, (0)+ :NOW LOAD THE MASKED DATA 
MOVE #123, {0)+ :LOAD THE TERMINATOR CHERACTER 
ISR PC, GROWS Hany THIS LINE 
Bic GMOW3, GMDWe2 MOSK THE NEW DATA 
SEC T THE ’C’ BIT 
ROL GMOW3 Py TO THE NEW MASK DATA 
CMP #777. GMOW3 : TEST FOR FINAL MASK DAT 
BNE GMOWB ;BRANCH IF NORE DATA MASKS 
TST GMOWL :TEST FOR MORE HORIZ BYTES 
BNE GMDWA :BRANCH IF meee COMPLETE 
:3<<RIGHT GRAPH WEDSE> 
MOV WIDTHG,GMDWL © ;SET-UP HORIZ ZOUNT 
DEC GMDW1 3 
MOV #0, GMDW4 :SET UP 
GMDWH: MOV #377, GMDW2 :SET-UP GRAPH DATA 
MOV #200; GMDW3 
GMDWJ: MOV #BUFFER, RO ;LOAD THE BUFFER POINTER 
MOV GNDUY, GMDWS 
BEQ MDUL” ; BRANCH IF THE FIRST 
GMOWK: MOVB #0, (0)+ OAD THE DgTA BUFFER 
DEC 3. GMS DECRENENT 
BNE GMDWK :BRA NCH IF NOT NEINISHED 
GMDWL: MOVB GMDWe, (0+ :LOAD THE MA 
HOV GHDML  GMDWE *LOAD REMANDER HORIZ. COUNT 
GMOWM: MOVB $8377, (0)+ LOAD UNMASKED GRAPH DATA 
DEC GMDWS s DECRENENT C 
BNE GMOWM :BRANCH IF NOT COMPLETE LINE 
GMDWN: MOVB #23 (O)+ :LOAD TERMINATOR CHA 
ISR C. GROWS : PLOT THIS LINE 
BIC GMOS. GMOWe2 :MASK T GRAPH DATA 
ASR GMDW3” :SHIFT LEFT 
BNE GMOW :MORE GRAPH DAT 
INC GMOW4 : INCREMENT POSITION COUNT 
DEC GMDUL ;DECREMENT TOTAL COUNT 
BP. GMDWH : BRANCH UNTIL R “BLANK LINE 
PC, CRLF "OR=L 



























### SEQ 0033 





~j~ aia 


~I~9 


~~3 
TUOTUe- b+ TCI 
—OO0O WO. ~~uI 


I~3 


SON TN 


<0 B02 + = = bo 8 ob = = UL Bs 0 0 0 0 0 2 bo be eh ee LD 
ee ee ee et et eet et et et et Bt ee et et et et et et et et ee eet et eet eet et Ss eet ee ae ee ee 


LO LP LO LON OB LRN LR LR DIN LON LR LOO LOR LRN BRR LO LRN OLR LO LO LOLOL OOOO 


005104 


0052 
005260 


mre P -11-DZLVA-8. 
LVAB.P1L T32 


oco0d4 


00240 


000137 
002136 


015 
050040 
000943 


MACY11 &€7(663) 
PLOT A LENGTH OF FULL GRAPH DATA 


4-JUN-76 





15:S1 PAGE 20 


eer 21 PLOT A LENGTH OF PULL GRP DaIA eee 


: AEST 


T A LENGTH OF FULL GRAPH DATA 


5 RRRRKRKKA SERA ALARA LARK AAA LL ALARA AAR AALL LALA LEAR ARAL SE RALA LAF ES 


T31:__ SCOPE 
; THEN DELAY _APPRO 


1_SEC. 


; THEN REPEAT bara 10 TIMES 


BNE J&TA 
-SBTTL END OF PASS ROUTINE 


RS, AMSG :PRINT HEADING 
SET-UP DELA 
a3, eT CHAR : SET-UP CHRACTER 
¢,BOMTA :PLOT DAT 
re DELAY! : DELAY 


; DECREMENT 
;BRANCH IF NOT COMPLETE 


y RHR EAE RAE EK KEKE RA REALE AER AR AAREEE LARA RE ARELEREEREE ELLER 
: SINCREMENT M3 PASS NUMBER ($P 


;*TYPE “END P 


ASS) 
ASS &XXXXX" hee XXXXX IS A DECIMAL NUMBER) 


:*IF THERES gg Me GO T 


:*IF THERE ISN’T 


JBT: 
006360 
000019 
000377 001618 JBTA: 
006024 
006322 

SEOP: 
001102 
601200 
100000 001200 


DE 
SEOPCT: . 


MO 
SENDCT: .WORD 


005245 
001209 


o0Se4e 
000942 


SENDAD: JSR 


SDOAGN: 
JMP 
NAD: . 
377 000 S$ENULL: . 
O4e4l2 O42116 SENDMG: . 


051501 O20le3 


$GET42: 


JUMP TO INIT 


STSTNM ;ZERO THE TEST NUMBER 
$PASS : EINCREMENT THE PASS NUMBER 
#100000, $PASS 33 DON N’T ALLOW A NEG. NUMBER 
(PC)+ - ; LOOP? 


$DOAGN 7;YES 
(PC)+,9(PC)+ ::RESTORE COUNTER 
SENDMG sTYPE “END PASS # 
$PASS, -(SP) :iSAVE § $PASS FOR YPEOU 
7:60 T VBE--BECIMAL Ascii WITH SIGN 
SENULL *: TYPE @ NULL CHARACTER 
a2 :GET MONI DDRESS 
oatN ;;BRANCH_IF NO MONITOR 
::CLEAR THE WORLD 
PC, (RO) 3;G0 TO 
;;SAVE R 
;:FOR 
s;ACTLI1 
a(PC)+ ; ;RETURN 
IN IT 


;NULL CHARACTER STRING 
ches tS) eno pasé’s 









DZLVAB.P11 











777 905430 
778 OOS434 


780 oO05436 
781 oos442 
782 05444 


MAINDEC-11-DZLVA-8 
END OF PASS ROUTINE 


000900 


005777 
190001 


104001 


108777 
100401 
104002 


104400 
194400 
000000 


005777 


100401 
194002 


104400 
009000 


005777 
190901 
104004 


104400 


104400 
000000 


005777 
100001 
104006 


MACY11 27(663) 


001100 


001246 001602 
90002 001694 
poesze 


174250 


174240 
006724 
006651 


174216 


O0ESe2 
174209 
006766 
OO&&51 


174156 


00&S22 


174140 


MANTST: RESET 


. SBTTL 


1$: 


3$: 


4$: 


S$: 


4-JUN-76 
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### SEQ 0035 









MOV #STACK, SP 
— INTERVENTION TEST 














$BASE,LV ;LOAD DEVICE ADDRESS 
MOV $BASE.LVB *LOAD DEVICE ADDRESS 
app #2,LV8 ‘UPDATE BUFFER ADDRESS 
TYPE aéG) ;PRIN TH HER DER 

TYPE  [M5G2 NT CON 

HALT WALT FOR OPERATOR 






TST te ; TEST ag be 









BPL 1 :: BRANCH OVER 

ERROR 1 ‘ERROR PRINTER ERROR BIT SET 

TSTB = ALS TEST READY 

BMI 25 ::BRANCH ON READY SET 

ERROR 2 ERROR PRINTER READY BIT 
FAILED T 

TYPE .MSG4 :PRINT 'TURN OFF POWER’ 

TYPE  'M5G3 :PRINT "DEPRESS CONT’ 

HALT ‘WAIT FOR OPERATOR 






TST aLVS sTEST STATUS 

BMI 3$ ANCH OVER 

ERROR 3 ‘ERROR PRINTER ERROR BIT FAILED 
: TO SET ON POWER OFF 







TYPE »MSGe SPRINT "RESTORE? 
HALT :WAIT FOR OPERATOR 













TST aLVS ; TEST STATUS 
BPL 4$ BRANCH OVER 
ERROR 4 i BRoR. PRINTER _— BIT FAILED TO 





RESET ON POWER 









TYPE MSGS sPRINT ’DISCONNECT’ 

TYPE  ‘'MSG3 :PRINT CONT 

HALT ‘WAIT FOR OPERATOR 

TST aLvs ;TEST STATUS 

BMI c$ : BRANCH OVER 

ERROR § ; ERROR PRINTER ERROR FAILED TO SET 
. : ON PRINTER DISCONNECTED 

TYPE . ,MSG2 ;PRINT RESTORE 

HALT ‘WAIT FOR OPERATOR 

TST aLvs TEST STATUS 

BPL 6$ : BRANCH OVE 

ERROR 6 t RBROR® PRINTER ERROR BIT FAILED 


: TO RESET UPON PRINTER CONNECTED 








MRINDEC-11-D2LVA-8 
MAN: 


DZLVAB.PL1 


cor 


hee 


OO0S4S6 
poe ted 


005470 
005474 


005516 


284400 


doco90 


005777 
100401 
104007 


104400 
000000 


005777 
100091 
104010 


104400 
000005 
000009 
000137 





pore? 4 


174116 


00&See2 


174100 


007145 


o0S262 





MACY11 27( 663) 
UAL INTERVENTION TEST 


Fd . 
o$: 


10$: 


4-JUN-76 
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,MSG7 


MANTST 





KO3 


i TYE » REMOVE PAPER’ 
;WAIT FOR OPERATOR 


TEST STATUS 

«BRANCH OVER 

ERROR PRINTER ERROR BIT FAILED 
TO SET ON NO PAPER 


SPRINT RESTORE 
WAIT FOR OPERATOR 


TEST STATUS 

: BRANCH OVER 

“ERROR, PRINTER ERROR FAILED TO 
RESET ON PAPER AVAILABLE 


;PRINT "END OF THIS TEST’ 


;MANUAL INTERVENTION TEST COMPLETED 
;REPEAT TEST IF HIT CONTINUE 











### SEQ CO3E 












MAINDEC- | Aepseme™ MACY11 €7(663) 4-JUN-76 15:51 PAGE 22 
DZLVAB.P1l ANUAL INTERVENTION TEST #44 S29 0037 






08 ;LOAD A SINGLE CHARACTER ACROSS THE PAPER WIDTH 
810 : 

811 ooss22 o12700 915106 FILBUF: MOV #BUFFER, RO ; SET-UP BUFFER POINTER 

gig O05&26 013502 OV 3(5)+. Re -SET-UP PAPER WIDTH 

813 005530 110120 FILBFA: MOVB R11, (03+ SAVE Fuk ,CHARACTER IN THE SUFFER 
814 905532 005302 DEC :FT 

815 905534 001375 BNE FILBFA : BRANCH TF NOT COMPLETED 

816 005536 900240 NOP 

Si? 90554¢ 990540 NOP 

gis S42 oo0205 RTS RS EXIT 

820 sLOAD A INCREMENTING CHARACTER ACROSS THE PAPER WIDTH 

821 ONLY 40 THRU 177 ARE LEGAL CHARACTERS 












823 005544 O12700 015106 LIC: MOV #BUFFER, RO ;SET-UP BUFFER POINTER 

8e4 005550 013502 MOV a(5)+,Re :SET-UP WI 

8eS 0055 110120 LICA: MOVB R1, (O}+ ;SAVE_A CHARACTER IN THE BUFFER 
826 005554 00520! INC Rl ;UPDATE THE CHARACTER 

Be? 005556 023701 001620 CMP LASTCH, Rl : TEST 

8e8 005562 001002 BNE LICB BRANCH IF NOT 

8e9 005564 O12e701 O00040 MOV #40,R1 MAKE 9 LEGA, CHARACTER 

830 005570 005302 LICB: DEC Re ; DECREMENT 

831 9005572 001367 BNE LICA sBRANCH IF NOT COMPLETED 

832 005574 00024 NOP 


834 05600 oo0205 RTS RS ;EXIT 
.SBTTL PRINT/PLOT SUBROUTINE 





















838 005602 012737 O1510&8 O01656 XPRNT: MOV #BUFFER, SAVE! ae Tue ites POINTER 
839 005510 013537 091660 MOV 3(5)+, SAVE2 :SETUP WIDTH 

840 005614 013700 001656 XPRNTC: MOV SAVE1, RO 

B4i 005620 013701 001669 MOV SAVE2,R1 

B42 O0056e4 105777 173752 XPRNTA: TSTB aLVS ; TEST READY 

843 005630 100404 BMI XPRNTB ; BRANCH IF SET 

844 005632 005777 173744 TST aLVvS T ERROR 

84S 30-336 100372 BPL XPRNTA BRANCH IF RESET 

845 J0s640 104030 ERROR 30 ERROR, ERROR FLAG SET 
847 J0Sb42 112077 173736 XPRNTB: MOVB (0)+,aLV8 

848 005646 005301 DEC R 

849 heres 001365 BNE XPRNTA 









8Se 005656 104406 CKSWR s TEST FOR CONTROL G 
853 005650 032777 9010000 173252 IT #81T12,aSWR ;TEST LOOP THIS LINE SWITCH 
O0SE al :YES 


BSS 005670 000205 












DZLV 


MAINDEC-11-DZLVA-B 
/AB.P1l 


006014 
0060¢2 


000240 
009240 
000205 


Bier oo 


rissty 
cieeie 


119120 
ll 


————— 





Macy] 
PRINT/PLOT tar 


015106 


$001 90 
1510 
000001 


001640 


o0S56Ce2 


006076 
000001 





63) 


(6 
INE 


1 27( 
QUT 


005076 
173622 


173560 


MO3 


4-JUN-76 15:51 PAGE 23 


;WEDGE SUBROUTINE <CHARACTER> 


WOGSUB: MOV (5)+,R0 
MOV (5)+,R1 
MOV (2) + Re 
MOV (S 
MOV WBUFFER, RY 
TST Ri 
BEQ WOGB 
WOGA: MOVB RO, (4)+ 
DEC Ri 
NE WOGA 
TST R3 
BEQ WOG 
WOSB: MOVB Re, (4)+ 
amas ae R3 
BNE WOGB 
WDGC: NOP 
NOP 
RTS RS 
:GRAPHIC SUBROUTINE 
GMTA: MOV #64. BGSAVE 
MOV #BUFFER.R 
BIS #8170, ats 
MOV (RS)+ 


MOV (RS)+! fe 
MOV WIDTHG, R3 


GMTAR: MOVB R1,(0)+ 
MOVB Re, (0)+ 
DEC 
BNE GMTAA 
GMTAB: R RS, XPRNT 
WIDTHG 
DEC BGSAVE 
BNE 


GMTAB 
#BIT0,aLVS 
RS 











sanve FIRST CHAR. 


COUNT 
i SETUP BUFFER POINTER 


BRA NCH IF _NO FIRST CHAR 
:LOAD FIRST CHAR INTO BUFFER 
een UNTIL COMPLETED 


Teer R 
i BRENCH IF NO SECON D CHAR 

*LOAD SECOND CHAR INTO BUFFER 
:DECREMENT UNTIL COMPLETED 
: BRANCH 


b 
sEXIT 


;SET-UP EXECUTION COUNT 
;SET 7h BUFFER POINTER 


MODE 
GET FIRST GRAPHIC DATA 
GET SECOND GRAPHIC DATA 
SET-UP WIDTH COUNT 


sLOAD FIRST GRAPHIC DATA 


TH 

t BRANCH IF NOT COMPLETE 
;PRINT THIS LINE 

;FINISHED THE EXECUTION COUNT 


:BRANCH IF _NOT COMPLETE 
sCLEGR PL PLOT MODE 


























##% SEQ 0038 








MAINDEC-11-DZLVA-8 





e777 
006074 000207 
000640 


OWOOWoOwWwo 
TU — > + - b- 
OWD ITUI£C 

B 
Qo 
~J 
ao 


0.0.0 
tu 


e1 006100 012737 
Lee 






3 
905 906024 012737 
906 906C32 052777 


000100 


000001 
001616 


00SSee 


005602 
006076 
000001 


015106 
000001 
001656 
000123 
173446 


173440 


173432 


ooo0de 
010000 
000091 
015106 


001636 







MACY11 27(663) 
DZLVAB.P11 PRINT/PLOT SUSROUTINE 


006076 
173542 


173506 


001656 
173466 


173420 
172746 
173400 


;GRAPH MODE SUBROUTINE 


BGMTA: 
BGMTB: 


BGSAVE: 
;WEDGE SUBROUTINE <GRAPH> 


GROWS: 


GROWSE: 
GRDWSA: 


GRDWSB: 


GROWSC: 


4=-JUN-76 






MOV 


40 


GROWSD: BIS 





;LOAD BUFFER See SUFFER, 


BTPSR: MOV FFER, RO 
MOV (3)+,R." :GET FIRST CHARACTER 
MOV (5)+'Re :GET SECOND CHARACTER 
MOV WIDTHE. R3 ;SET THE WIDTH 
DTPSRA: Ri, (0)+ 
Be 
R 
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GROWSE’ YE 
4B1TO,aLVS -CLEAR PLOT MODE 





##% SEQ 0039 










#64. , BGSAVE ;SET-UP LENGTH PER GRAPH DATA 
#B1T0, aLVS ODE 
SICHAR Ri I SET- UP GR 







APH DAT 
5, FILBUF ;PILL THE BUFFER WITH GRAPH DATA 
RS, XPRNT : PRINT THIS LINE 











BGSAVE ;DECREMENT GRAPH LENGTH 
BGMTB BRANCH IF_NOT COMPLETED 
gette, Lvs s CLEAR PLOT MODE 


; TEMP LOCATION. 






#BUFFER, SAVE 










#8170, af LVS s INSURE GRAPHIC MODE 
tee GET A ATA WORD 
#123°R1 ST FOR TERMINATOR 
GROWSD ; BRANCH IF COMPLETED 
aLVS T READY 
GRDWSC BRANCH IF READY 
aLvs TEST ERROR 













;ERROR, ERROR FLAG SET 


At ;PLOT THE GRAPH DATA 


#BIT1,aLVS ; TERMINATE THE LINE 

*TEST FOR CONTROL G 
#81712, aSWR -TEST LOOP THIS LINE SWITCH 
“BRANCH IF Y 






















MAINDEC 
a= 5 e 


wee ¥ sé. 


, 
nn 
4. 


De oefoh © 
Coens 
nr 


PR 


PPO!’ 
NOUNS Gotve-O0.000 


fi 


hn bee 
09.0 


a ie 
LY) 


outs 


ee 
PV ary Ory Oc) ore ore or 


Ct 


nu) 
(90 


i 


VARY ATVEIVirvilverrilvilvelververververvilvelvary dl 


TO Met eT At 


om ee — 


Cound 
a 
opr -—— «- 
NZ Cou OU 
D-a> i 
, rest . 
“ 


t 


Co) Uses Ose Ose 
COMDcCoiMcoMscotya 


' JUV 904 Eb 4 Ee gg 
it 2 Irn 


a de 


' NE FOR LV=-}) 


ee er ree 





-TEST EAD OrOnY 


sSCRMIICM LP 


; TEST FOR 


;BRANCH IF _NOT 
~  gERROR, ERROR BIT SET 


sex 


37 4 81 
TEST FOR 
L5RD THE 


s;SRANCK UNTIL DONE 
EXIT 


eles | 
eee 





MB INDES-11-D2LVa-8 
V88.Fi1 


1906 


:=r° 
oww! 


ee -) 


owww 


1008 


~ 
Pareto eth ed 


o--0-- [Ue 8 <0 
CN Muu £O 


Oooac 


04 
OS2117 
042524 


940503 


-ASCTI 


~ASCIZ 


ASCII 


-ASCIT 


«ASCIT 


-ASCIZ 


~ASCIZ 


ee eee ee ee 
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04 





~SBTTL ASCII MESSAGES 
(1§>¢15)¢12>/MAINDEC-11-D7LVA-B PRINTER PLOTTER TEST/<i 


RESTART QDDRESS 204’ «15><«12> 


(15)<¢15><12>/TURN PRINTER POWER ON’ <15>< 


‘CONNECT CABLE TO THE PRINTER’ <15><«i2> 


INSERT PAPER INTO THE PRINTER’ <15><12> 


(15><15>/DEPRESS CONT. WHEN OPERAT?%:, COMPLETED. 


><15>/TURN OFF POWERS TO THE PRINTER 


uw 
- 
u 


- 


(15><15> “DISCONNECT CABLE FROM THE PRINTER 





fw 


o- 








MAINOEC$11-D2LVA-8 


é7 (663) 


006504 


O4eS22 
047117 


= ~ 
O00076 





15:51 PAGE 27 


(15)<15>/REMOVE PAPER FROM THE PRINTER’ ¢15>< 12) 


“DEPRESS ADVANCE UNTIL °PAPER’ LIGHTS’ < 


(15><15>/MANUAL INTERVENTION SUB-TEST COMPLETED’ <15><la> 


‘DEPRESS CONT. 


€15><¢15><15><«12>/MANUAL INTERVENTION SUB-TEST~ 


/9.3 DATA PATH TEST <PRINT MODE / 





/9.4% PRINTABLE NON-PRINTASLE TEST «PRINT MODE>- 


ee ee oe ee 





MRINDEC-11-D2LVAa-8 


DILVAB.PL2 


1020 


1023 


ia p=) | 


NSE 


ewww 


ASCII MESSAGES 


oh B31 


> (1 
o--0 +d +0 -+0-+0-< 0 +b 0 bse CU 
OODdNoONYIOoOOO 
ORE", Sohity 
Pros Pore 


fu 


27 (663) 


o42504 


51040 
it Bee 


042504 
042040 


047515 


15:51 


~ASCIZ 


oASCIZ 


~ASCIZ 


-ASCIZ 


~ASCIZ 


PAGE 28 


04 





$## SEG CO43 


/9.$ SINGLE CHARACTER PER LINE <PRINT MODE>/ 


ROTATING PATTERN <PRINT MODE> 


CHARACTER WEDGE «PRINT MODE>/ 


ROTATING ONE EIT DATA PATTERN <PLOT MODE>/ 


ACCUMULATING SIT DATA PATTERN <PLOT MODE>/ 


. 


10 ALTERNATING ONE AND ZERO DATA PATTERN <PLOT MODE> 


79.11 DIMINISHING BIT DATA PATTERN <PLOT MODE>/ 
















MAINOEC=11-D2LVAa-8 MACY11 27(663) 4-JUN-76 15:51 PAGE 29 
DZLvAas.P ASCII MESSAGES #*¢ SEG CO44 


1028 scfeee 93108 43440 MSl2: .ASCIZ /9.12 GRAPHIC WEDGE «PLOT MODE>/ 
2 O4#412 
04210 
046120 OSeli7 
— 04211? 037105 


i029 ee O204S6 O20063 M913: .ASCIZ /9.13 PAPER SLEW <PLOT MODE>/ 


OOw Lem LP OWES OW EE 
Oo 
Se 
fu 
wt 
tf 
Oo 
Oo 
fu 
oO 
— 
LA] 
tJ 


1030 O15 Q500le O44Se2 EMI: sASCIZ <15><12>/PRINTER ERROR BIT SET/<15><12> 


2031 OS00le O44See EMe: eASCIZ <iS><12>/PRINTER READY BIT FAILED TO SET/«15><1la> 


=) 
forore 
UNE 
LPO 
Q 
ui 
fu 
Gi 
Ore— 
How 
Oo 
EOW 
GJ) b-- 
Ooul~— 
y 
5LR 
200 
£m 
i ed 
Moo 
OLE 
-300 


Cebe2 047524 
ASoe sits OS2i0S o0S015 

Ce77 915 O500l2 O44S2e ENS: JASCIZ <15><12>/PRINTER ERROR BIT FAILED TO SET ON POWER OFF/<15><12> 
2 04 051105 440 

0 


nN 
8 1 
S350 020122 O42117 OO6506 


1033 005915 pe iise O47111 EM: -ASCIZ §<15><12>/PRINTER ERROR BIT FAILED TO SET ON POWER ON/<15><12> 


Qlee 051105 





8) 
1034 o440 005015 051120 O47111 EMS: , (15><1l2>/PRINTER ERROR BIT FAILED TO SET ON PRINTER DISCONNECTED’<15><12 


ONNVOOVO NOOO VOOOOOVOIVOIAIVIVOVVVIOUVIOVVVOVOVVOVOOVOOVOOVOOHO 
~~ 


Fatal at stat aratatat atest erarataratororarstarae + b+ + §—< p~2 0-2 b= 9s ho po bo § 2 f= po fo ho 
=, C 
BS ft 


11 
OS20 047503 O47116 041505 
OSe& O425e4 006504 000012 








re 


1036 


‘o 
NOO000000 o-- 
oO 
any 
ao 
< 


ARAB 
22 


1937 


0652 
C560 
O&66 
O& 


1038 
0716 


~ SS bes 
aes 


1049 


RARER SRoSk 


Ono 
orn £ 


i041 


LFOREO Le 


- 
© 
GJ 
wo 
OOOO VGOOVOOYIVIOOOVVIOVOOOKVVIAIOIYIMIVIOIOVIVOVOVOVDOVVOVONOVO0NU 
£OTOo 


0 b+ 0 -+ b+ b= & 2 8 b= = 2 b= 0 2 + 2 2 bo Bo 2 bs bo bo bo hs Bb * 0 he 0 ho 2 fe ge 
0+ = 6 = 6+ b-2 bb + b= 0-2 Fb 8-2 0 0 2 0 0 bt COCONINO lo) 
0 0+ b-+ 0+ bb - 2 0 0-2 dC 


SIN 


Lacnee-watinsienidanem-enasiintes 


MAINOEC=@11-D2LVA -8 
VaB. ASCII mesa 


Ht 


oo00i2 


OSeSe4 





27 (663) 


Bs 108 


1) 6 
OOf015 
044522 


006S23 








4-JUN-76 

EME: -ASCIZ 
EM?: ~ASCIZ 
EM10: .ASCIZ 
EM11: .ASCIZ 
EMl2: .ASCIZ 
EM13: 


15:51 PAGE 30 





04 


### SEG 0045 
«15><12>/PRINTER ERROR BIT FSILED TO RESET UPON PRINTER CONNECTED/<15><1 


(15> 12> /PRINTER ERROR SIT FAILED TO SET ON NO PAPER/<15>< 12> 


(15><12>/PRINTER ERROR BIT FAILED TO RESET ON PAPER AVAILABLE/<15>< 


(15><1e@>/RESET FAILED TO CLEAR LP ERROR BIT/<15>< 12> 


(15><12>/RESET FAILED TO SET LP READY BIT/<15><12> 


(15><12>/INTRPT. EN. BIT FAILED TO SET CLEAR _P STATUS 





12> 


o& / 





mr ee 


sath 11-DZLVA-8 
AB.P 


DZLV 
1043 


1047 


1051 


NOOVDOOOOOVDOVOVDVOVOOO BDOOVOOVOHVVIOIOVOOOVDHOVOOKOVOOVMSHOOVOV0000 on 


= = bb * b= b= b= b= 82 bs 2 b= be bo 2 0 80 B22 b= Bs b= Bs b 2 b 2 § 2 9 b= ho Fo 9 bo bs be be he he 


ASCII meSeanes * 


095015 


po0012 


O47111 


6 
O4eSe4 


006S22 
042101 


006S2e 


4=-JUN-76 


EM14: 


EMLS: 


EM16: 


EM17: 


EMe0: 


eM21: 
EM2e: 


EMe3: 


EM24: 








04 
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~ASCIZ 


-ASCIZ 


-ASCIZ 


oASCIZ 


-ASCIZ 


~ASCIZ 
-ASCIZ 


-ASCIZ 


(15><12>/INTRPT. EN. FAILED TO RESET/<15>< 12> 


(15><1e@>/MODE FAILED TO SET/<15><12> 


¢15><12>/MODE FAILED TO CLEAR/<15><1l2> 


(15><12>/READY FLAG CLEARED IN ERROR/<15><12> 


(15><12@>/READY FAILED TO RESET UPON LOADING PRINTER BUFFER/<15>< 12> 


(15>< 12> “ERROR/<15>< 12> 


¢15><12>/READY FAILED TO SET AFTER A DELAY/<i5><l2> 


(15><12>/ERROR BIT SET IN PRINTER/<15>< 


{15><12>/READY BIT RESET 





12> 


N PRINTER/<15>< 12> 

















#4# SEG OO4E 








=11-D2LV 
AB.Pil 


foruro furororurururoro 








b~* b= b= + 0 bo po he 


“bos 
mw UAL 
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(15><12>/PRINTER FAILED TO INTERRUPT/<15)< 12> 


€15><12>/PRINTER FAILED TO INTERRUPT ON LEVEL INDICATED/<15><12> 


¢15><12>/PRINTER INTERRUPTED ON LEVEL INDICATED/<15><12> 


¢15><12>/ERROR BIT UNEXPECTEDLY SET/<15>< 12> 


S24 
l 
ee 
OS 
ll 
iS 
15 
1 
1§ 
20 
16 
14 
C3 
le 
1§ 
lee 
125 


rae 
OfLoO 
O00 


<15><12>/TRAP TO 4 WHEN ADRESSING LV1i/<15><12> 


BUSADR BUSVECT/<15><12> 


€15><12> /ERRPC 


SERRPC, SBASE,LVVCT,O 





3 
08 
06 
14 
el 
26 
34 

4 

0 

5 

4 

& 





DZLVAB.Pil 


1083 

(1) 

(2) 

ij) 

(2). 

(2) 

(1) 

(1) 

(i) 

(1) 

(1) 012170 
(1) Ql2176 
(1) Q12200 
(1) Q12204 
(2) O12206 
(1) Ql22le2 
(1) Qlee2ls 
(1) Qleeee 
(1) Ql2224 
tt} Ole232 
(1) Ol2234 
{i} Ol2240 
(2) gl2244 
(2) QO12250 
(1) QOleese 
(1) 2256 
(1) 312260 
(1) Gleebe 
it 012265 
(1) 012270 
(1) Oi2274 
(1) 

(1) 

(1) 

(1) 012300 
(1) 012304 
(1) 012306 
(1) pissis 
(1) Ole3isb 
(1) 

(1) 

(1) 012320 
(1) . 912324 
(1) Qle3eb 
(1) Qle332 
(3) 012334 
(1) Qle34e 
(1) Qle346 
(1) Qle3se 
{1} Bi eseg 
(1) Qle3 
(1) 012370 


MAINDEC-11-D2LVA-B8 








MACY11 27 (663) 


TTY INPUT ROUTINE 


OOS046 
OOSO4E 
105777 
100375 
117746 
042716 
021627 


001005 
104400 


Be678? 


000002 


000176 9001140 
166740 
166734 
177600 
000007 


001134 000001 


012715 
Ole7ee 
000176 


012733 
166656 


166652 
177600 


009025 


012710 
000906 


oo00is 
000004 
000002 166576 
0000 


Clis 
001135 000001 
000100 166554 





4-JUN-76 





15:5] 


PAGE 33 


~SBTTL TY INPUT ROUTINE 
eet ta patmmis meat aac piaanmaec cn mec anec enter atin 


*ENAB 


04 


5 RRRRRAAAA AAR ER AALA RA AAA RA SAAR KARA RHEAS LASEK AA EK EA ELE EFL E ES LLESES 


OF TWARE 


sue 


see 


ORERATI: “IN TTY F 
pee SWREG, 
NE 1 
TSTB 230s: ASTKS 
BPL cS 
MOVB  aSTKB,-(SP) 
BIc BIC1??. (SP) 
CMP #7, (SP)+ 
BNE 15 
CMPB ss SAUTOB, #1 
BEQ 15$ 
TYPE  ,$CNTLG 
SGTSWR: TYPE SMSWR 
OV SWREG, -(SP) 
TYPOC 
TYPE ,$MNEW 
19$: CLR ~(SP) 
CLR -(5P) 
73: TSTB = BS TKS 
BPL 7 
MOVE §§ JSTKB,-(SP) 
BIC #tC177, (SP) 
9S: CMP (SP), #25 
BNE 10 
TYPE SCNTLU 
203: ADD be. S 
BR 133°” 
10$: CMP (SP), #15 
BNE 16$ 
S 4(SP) 
BEQ 11 
MOV 2(SP), aSwR 
11$: ADD #6. SP 
148: TYPE ScRLF 
CMPB = SINTAG, #1 
BNE 153 
MOV #100, I$TKS 
1S$: RTI 





TER CHANGE 
M TH 
ha 


AND WILL 


oF, Tea wal LER 
N SOF THA SWITCH REGISTER TRAP CALL 


HIS, THE SOFT-SWR SELECTED? 
7 3BRA NCH IF a 


T 
306 NO, DON’T WAIT AROUND 
THE CHAR 


::STRIP-OFF THE ASCII 
tis IT A CONT ROL 6? 
RETURN T USER 
ii Ope WE R INNING IN AUTO-MODE? 
:BRANCH IF YES 


AR THERE? 
IF NOT TRY.AGAIN 


s:PICK UP CHA 
ZIMAKE IT SeetT ASCII 


:;IS IT A CONTROL-U? 
+ RNC IF NOT 
YES, ECHO CONTROL-U (tu) 
: :TGNORE PREVIOUS INPUT 
:LET’S TRY IT AGAIN 


:;IS IT A <CR>? 

; 3 BRAN CH IF NO 

YES, IS IT THE FIRST CHAR? 
::BRANCH I 

:: SAVE Neve Cun 


AND < 
ssRE-ENABLE TTY Kab INTERRUPTS? 
| RE-ENRLE TTY KBD INTERRUPTS 


$9 





### SEQ 0048 





NAINDEC= -11-DZLVA-B 
AB.P1l 


et et i te et et tt a tt tt a a a a et at at et a as ee as as es a a a a a a a as a as 


Cl it i ee ee ee i a a a a a a ek ee a a ee i ee ee ed de ae ee ea ee a aa at et et ot 
+ 0+ BO + LD 8 - b b-* 0 8 8 8-2 0 0 0 0 0 0 0s 0 = = 2 b= be 9 FL) = 0 Bo > = po bo hs b= po 








4737 





13156 
00060 


000067 


000060 
000002 


000002 
177776 


001166 


bo720 | 


oocoo4 
166456 


179660 
oo0c04 
166424 


oooc04 
000004 
000040 
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o0000e 


0 


88e 
ooo 


Moo 
WEE 


000140 
000175 
000004 
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### SEG 0049 





16$: JSR PC, $TYPEC ;;ECHO CHAR 
CMP (SP), #60 HAR < Q? 
BLT 18$ ; BRANCH IF YES 
CMP (SP), #67 29 
BGT 18% tt BRa NCH H IF YES 
BIC #60, (SP)+ ss STRIP-OFE ASCII 
TST 2( SP) :IS THIS THE FIRST CHAR 
BEQ 17$ : :BRA CH _IF YES 
ASL (SP) ::NO, SHIFT PRESENT 
ASL (SP) :: ‘CHAR OVER TO MAKE 
ASL (SP) *: ROOM FOR NEW 0 
17$: INC 2(SP ::KEEP COUNT OF CHA 
81s =2(SP), (SP) N NE R 
BR 7§ HE ONE 
18$: TYPE SQUES t: TYPE ?<CR>< 
20$ tS SIMULATE CONTROL -U 


BR 
-DSABL LSB 


: = SEXSLSSESLLAARAARAE HAHA LHL SE AAAE LARA ERASER F LER FRAKES REE LESLE 
sSTHIS | ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


Hs ROCHR ss INPUT A SINGLE CHARACTER FROM THE TTY 
x RETURN HERE :: CHARACTER IS ON 
1% ::WITH PARITY BIT ore TPES OFF 
SROCHR: MOV (SP), -(SP) ;;PUSH DOWN THE PC 
MOV 4(SP},2°SP) ::SAVE THE PS 
1$: TSTS = ASTKS ssHALT F FOR 
BPL 1$ ;;@_CHARACT ER 
MOVB aJSTKB, 4(SP) 5 7REAO. THE TTY 
BIC #tC<177> \4(SP) ::GET RID OF JUNK IF ANY 
CMP 4(SP), #23 ::IS IT A CONTROL-S? 
BNE 3$ 3 BRANCH IF NO 
2s: TSTB = ASTKS :WAIT FOR A CHARACTER 
BPL 2g :ELOOF UNTIL ITS THERE 
MOVE  aSTKB,-(SP) :GET CHARACTER 
BIC #tC17?7, (SP) MAKE IT 7-eIT ASCII 
CMP (SP)+, bel ::I1S IT A CONTROL-Q? 
BNE 2 site NOT DISCARD IT 
8R 1$ :YES, RESUME 
33: CMP 4(SP), #140 ::1$ tT UPPER CASE? 
BLT 4 : } BRANCH IF vES 
MP 4(SP), #175 ::IS IT A SPECIAL CHAR? 
BGT 4 ;;BRANCH IF YES 
BIC #40, 4(SP) 3 ;MAKE IT UPPER CASE 
48: RTI BACK TO 
° HEARSE EERERRNENNEEEETEEEEEEEEEEETEEEEEEREEEEEEEEEES 
iATHIS. ROUTINE WILL INPUT A STRING FROM THE TTY 
i RDLIN s;INPUT_A STRING FROM THE TTY 
: RETURN HERE :ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 





te :; TERMINATOR WILL BE A BYTE OF ALL O°S 
















MAINDEC-11-DZLVA-8 


112613 
le2713 000177 
104400 001166 

000763 
e626 111337 Ole676 
2eb3e 104400 012676 
2636 le27e3 O00015 

001356 
2644 105063 177777 
SO 104400 001170 


2660 Q16666 000004 
e666 QOle766 912700 


e710 052536 ooso1s 


00 
047040 
000640 


Ob sh bb bs b= 2 hs 2 be bs bs be fe ho he ho b= + ho pe bo bh = ph 
Set-top Sot woh Sef ertparh ert sed sed sod seh Sopud sedheed sotpecd Setperd sed-eed sodpeed sod Sep sed med Speed 
m 


QJ ON LOR LON ON LR BON RN ENO LOR LO LOR LON LOR LOR LN OR LPR LN PLO LPO PPP PO PA 

—)— 

iat) 

“I 

£ 

oO 

& fe 

Bo 

£ 

Oo 


oe. 
er ar er ee tt at ee i a tt a te a ee ee a es ee ee as ta es we 


thew 105737 001157 
750 i 0002 


LDL LOR LOR LO LDL OL FO LR BR IRF LO FNL ON NEN ON 
o-+ d= b= 8 << b= b+ + = 8 0 0 0 = 8 
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000002 
000004 


000 
000012 
020122 


053505 
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### SEQ 0050 








SROLIN: MOV R3 ($6) ss SAVE R3 
1$: MOV aSTTYIN,R3 -:GET ADDRESS 
2s: CMP aSTTYIN¢8. R32; ;BUFFER FULL? 
BLOS 4 7:BR IF YES : 
RDCHR :G0 READ ONE CHARACTER FRCM THE TTY 
MOVE (SP) +, (R3) ::GET CHARACTER 
10$: CMPB) sa 177, {R3) -:IS IT @ RUSOUT 
BNE :SKIP IF NOT 
4$: TYPE $QUES 3;;TYPE A *?’ 
BR *:CLEAR THE BUFFER AND LOOP 
38: Nove (R3), 98 ::ECHO THE CHARACTER 
CMPBs«&RIS, (RBD+ ::CHECK FOR RETURN 
BNE es ssh F NOT RETURN 
CLRB ss = 1 (R3) -  $iCLEAR RETURN (THE 15) 
TYPE  ,SLF -: TYPE A LINE FEED 
MOV (SP)+,R3 ; RESTORE 
MOV (SP), -(SP) *:ADJUST THE STACK AND PUT ADDRESS OF THE 
MOV 4(SP} 2°SP) FIRST ASCII CHARACTER ON IT 
MOV #$TTYIN, 4(SP) 
RTI ; sRETURN 
9g: .BYTE 0 :: STORAGE FOR ASCII CHAR. TO TYPE 
-BYTE Q ;; TERMINATO 
STTYIN: .BLKB 8 s SRESERVE g BYTES FOR TTY INPUT 


e 5 . 
SCNTLU: :ASCIZ /fU/<15><12> 3360 
SCNTLG: .ASCIZ /#G/<15><1o> CONTROL “G™ 
SNSWR: .ASCIZ <15><12>/SWR = / 


S$MNEW: .ASCIZ / NEW = / 
.SBTTL TYPE ROUTINE 


5p ERRRARRRRE REE HER EKER EEE LEAR AEA EERE EEE AAA ER EE EE EERE EERE ERE 
:¥ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 

;*#THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

; *NOTEL: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
; *NOTEe: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

s ENOTES: SFILLC CONTAINS THE CHARACTER TC FILL AFTER. 





:*CALL: 
;#1) USING A TRAP INSTRUCTION 
: TY ,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


$TYPE: TSTB STPFLG 3318 THERE A TERMINAL? 
BPL 1$ 3;BR IF YES 
HALT ;;HALT HERE IF NO TERMINAL 
BR 3$ ; ; LEAVE 

1$: MOV RO, -(SP) ;; SAVE RO 





MOV detSP) RO *:GET ADDRESS OF ASCIZ STRING 





LL LO LO LO LOL LO LB LD LO LL ON LON LN LOL LL LON LO LL LOL PO LO LON PR LON POE LPR LL O LO PO LO FO FO rn a a 
sb bs bs 2 = Fo 0 8 0 0 bh sb 0 ho 8 0 bo 0 ho hb 9 po pe bs ps pe bo ho hs 2 bs hp pe 
ee et et ee ee et et et et et et et a et ie et i et tt et et et te et it et et et et et a et et et et a ee a es a a a a ea ae es a wo 


MAINDEC- it ZLVA-8 


biEire 


013010 
4 


b+ 6 = 6 9— b+ p= 9+ pp pe 
Gu 
Oo 


-_ 
Ww 
i] 
uy 
ao 


13066 


OO0K000 DBONOOOVOVWVWVOVOOOVOVOOOVOVOD000 
b= ba 


= bb bb CC) 


a 


ROTORS Le LUO TO 





013014 
013706 


000049 


000002 
00001i 
009200 


013222 


013156 
001156 


001154 
oo0cc1 


013156 
013222 


000040 
013156 
000007 


165766 
a00015 
013222 
000012 





MACY11 27(663) 
TYPE ROUTINE 


000001 O0iele 
000100 001213 


61$: 
62$: 


2s: 


60$: 


33: 
4$: 


S$: 
6$: 


7$: 


HORIZONTAL TAB 


8$: 
9$: 


BR 
STYPEC: 


1S: 


INCB 
SCHARCNT: .WORD 0 
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#APTENV, SENV 
#APTSPOOL,SENVM ; 


,61$ 
PC; SATY3 


BAPTCSUP, SENVM 


60S 
(RO)+, (SP) 
(SP)+ 
(SP)+,RO 
#2, (SP) 
aT, (SP) 
HCRLF , (SP) 


(SP)+ 
SCHARCNT 
PC. $TYPEC 
SEILLC, (SP)+ 
$NULL, -(SP) 
1(SP) 

6$ 

PC, STYPEC 
SCHARCNT 

7§ 
PROCESSOR 
#’ , (SP) 
PC, $TYPEC 
#7, SCHARCNT 
(SP)+ 

2 

JSTPS 
STYPEC 
2(SP). a$TPB 
#CR, 2{SP) 
SCHARCNT 
STYPEX 

#LF (SP) 
STYPEX 


(PC )+ 








### SEQ 0051 





ss RUNNING : APT "a 
53NO,GO CHECK FOR A CONSOLE 


rae SEALS i APT 


[MESSAGE TO 
33 tRESSAGE ADDRESS 
ier oe ty SUPPRESSED 
;YES,SKIP TYPE OUT 
:;PUSH CHBRACTER TO BE TYPED ONTO STACK 
:3BR IF I T_THE TERMINATOR 
HIF TERMINATOR POP IT OFF THE STACK 


;REST 
jeIust RETURN PC 
+: BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


3POP_ <CRD<LE> EQUIV 
ti TYPE A CR AND L 


;;CLEAR CHARACTER COUNT 
:3GET_ NEXT CHA RACTER 
:;G0 TYPE THIS CHARACTER 
;315 IT TIME FOR FILLER CHARS. ? 

:TF_NO GO GET NEXT CHAR. 
iiGet 8 OF Wiaeee CHARS. NEEDED 

BND _THE N ULL CHAR. 

DOES A NULL NEED TO BE TYPED? 
s3BR I IF F NO-=G0 POP THE NULL OFF OF STACK 
3 300 NOT COUNT AS A COUNT 

; LOOP 


s;REPLACE TAB WITH SPACE 

+ BRANCH IF NOT AT 

;}POP SPACE OFF STACK 
:GET_NEX R 

PWAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
3308 CHARACTER A CARRIAGE RETURN? 


TES CLEAR CHARACTER COUNT 
3318 anne aes LINE FEED? 


t COUNT THE CHARACTER 
;;CHARACTER COUNT STORAGE 
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DZLVAB.P11 TYPE ROUTINE #4% SEG 0052 


013224 000207 STYPEX: RIS PC 
.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


; 5 RRRRRAAKARA KEKE ALA LAER REE RA ALLER ALK AEE RERERKEE LALLA REREL LL ELE 

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO 4 6-DIGIT 

:20CT (ASCII) NUMBER aND TYPE IT _ 
xSP S---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
. ; NUM, - (SP) ;;NUMBER TO BE TYPED 


;;CALL_ FOR TYPEOU 
;;N=l i" & FOR NUMBER OF DIGITS TO TYPE — 


*% 

& . 

@ ax . ¢sM= 

: ;; 1=TYPE LEADING ZEROS 
2 


C'—— 


; ;O=SUPPRESS LEADING ZEROS 


*¥$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
STYPOS OR STYPOC 


+ 
*CALL: 
MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
3% TYPON *sCALL FOR TYPEOUT 


Le 
j #STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
:* MO NUM, -(SP) ;;NUMBER TO BE TYPED 
;* . ?:CALL FOR TYPEOUT 


oooo0s $TYPOS: ;;PICKUP THE MODE 

000001 M F ;;LOAD ZERO pikt SWITCH 
013453 ;;NUMBER OF DIGITS TO TYPE 
000002 ADD ;;ADJUST RETURN ADDRESS 


. 
$ 
. 
’ 
. 
$ 
© 
’ 
° 
5 
° 
s 
7 
, 
. 
b 
o 
$ 
o 
$ 
$ 


& 


Nveres 3451 ;;SET THE ZERO FILL SWITCH 
OU0& MOVE 339ET FOR SIX(6) DIGITS 
000005 5, $0C 339ET THE ITERATION COUNT 
3; QAVE Ry 


SH 


. } 
MOV RS’ -(SP) 
013453 y SOMODE+1,R4 


NE 
000006 ADD ;;SUBTRACT IT FOR MAX. ALLOWED 
013452 ;;SAVE 


IT FOR US 
Sa BP ROE | alot ene ae 
| ROTATE He ZrO “c 


SSFORM THIS DIGIT 


atatatad 
WW) 
— 

+t 


PeageRaNs 


;;GET LSB OF THIS DIGIT 
35 TYPE THIS DIGIT? 
;;8R IF NO 


) 
) 
§ 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
; 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
} 
) 
) 
) 
) 
) 
) 
) 
) 
) 
} 
) 
) 
) 
) 
) 
) 
) 
) 


Cl tl ce ti eh i eae a il ad a el el ek ae ed a al a el ee el ee ad a ee el a a a a a a ee a a a aan © ea 
+b bb Fb 0 0 0 0 0 0 0 0 0s 8 0 0 0 0 0 2 0 0 8 0 8 0 0 0 Bs 0 0 8 = 0 0 + 0 8 


Fate 
ul 
£ 
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DDL VAS. Pil BINARY TO ScTAL (ASCII) AND TYPE #+4 SEQ 0052 
“t) Q1E35E Qeerog rere Bic P7770,R9 Haas: OF JUNK 
ve wesSSE VIVE f 
2 ERE BEE 8 rae 
(1) 833375 806208 4g TNC BY :iBon?t SoRpRESS anvwoRE O”s 
(1) 13372 952703 00080 1 8:5 80,83 piMGhE THES OFGIT Bsctt 
2) 337 382253 900045 Ss: 5 8 OG BKE ASCII TF NOT ALREAO) 
1) O02 11033? oN4s “OVB «RD, 8S ove FOR TYPING 
2) Sd 108400 Si3ys TYPE i $280 TYPE THIS O1GIT 
i) Sig4le 10833? 013480 7s: DECB © $0CNT 3COUNT BY 1 
1) BYSNI6 S0334% Bora 388 TE MORE TO 00 
iD pisisy Baee Ne 83 139 ; be Sy ATATT TENS Tr 9 OF OM 
.ee) wepTE7) yey TT SN <3 334 UU ime LHS: Uloll: 
1) Dies O12s0s g$:  MOV..  (SP)+, 85 :TRESTOR 
Tt) BONS BrSess MOY (SPs°RS SIREETORE & 
‘ } 0} = J (3 ) ° 
(1) OT343S O1s666 oo0002 00004 MOV «2 SP) |4(SF) S7SET THE STACK FOR RETURNING 
‘t} SESGS  Bh5Rs8 "Seles pela eat em yt 
it) Btiaag “B55 8s: BYTE 0 ToRAGE FOR ASCII DIGIT 
(1) Orgwa? =O "BYTE 0 STR MINATOR FOR TYPE ROUTINE 
DEES a ae eas ae 
3) BY5482 o00boe SOMODE: HO —_ NUMBER OF brelts 10 TVRE 
158 “STL CONVERT BINARY TO DECIMAL AND TYPE ROU 
(B * PRESESLISSSSLSSSSASSSSSPSLSESFSLSSSSSSSSLSASSSSSSSALSSALSFAF4S4S4944 
(J) :eTHIS ROUTINE IS USED TO CHANGE a 1g°B17 BINARY NUMBER 72 A S-O1G37 
4) s@SIGNED 0 gt TPA Medd tive a chack Ah Dare Tite On WHE + gs. & 
‘e- 3 i he: is Vos ive \ te ~ Vv tle > 2 Watete 7 
+¢ S#BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
| :*REPLACED WITH SPACES. 
ia p#CRLL: 
(} :* MOV NUM, = SP) :3;PUT_THE SINARY NUMBER ON THE STACK 
: i TYPOS 523 70 THE ROUTINE 
|B BEE ng SVPES: oy aonise) abuso ah ta 
| <B) Bi3¥6— O10]4 MOV 1,-(5P) :;PUSH RI ON STACK 
|B hess ee Moy Rg, (5B) :# BUSH S By ae 
(3) S1ee2 315 OV 17 SP) ::PUSH RS ON STAC 
| 0 EPMes BiDeue Moy RB = SIPUSH RS ON Stack 
oo; BRE HES gee SOR Beaiings 
se- ~e ‘é e rere MO’ Ci ),! 33G T 
| h Eixve falls ee i881 Ener Is Bos, i 
(2) $3500 OORsEe NEG RS Bw 3 uy 3 Bl ARY NUMBER FOS. 
| (ts §13552 112768 oo00ss ocood1 MOV a=, LSP) r:MAKE THE ASCIT NUMBER NEG. 
sb GEIS Gosong 18: CLR ny fi rEZERO THE CONSTANTS INC 
} (Tl) 0} 1 ] } MOV b K 335 t T o> T 
| (2) 613616 Tisse3 BABS45 MOVE tRa)+ t3SET THE FIRST SHARC TER TO A BLANK 
} (1) §1368e 05002 23: CLR aig 7; CLEAR CD Nu! 
| (2) 33524 Oj600) 013660 Moy SETBL(RO).RL r3 QB THE CONSTANT 
| (2) 613530 160105 38: SUB RI,RS FORM THIS BCD D1G11 





en a a a 


o +0 po ~~ oo 


Ot DP eet Sl el Sl elt tl “eel ‘ell ail ll ll al wel ne cle ale aa ae mle ee 


on 


Pe 


. 
a an en aS St ee ee ee a a) ~ | i ae Se a ae a ee el CO ONO OOO ~ oe * “nr . ~ on on 
Cet med eel eet Me ee ULC ee ee ed th el ed eed ed ed ed ed ed re ee] ee ee ed ee ed ed ed ed ed ed ed ed ed ed ed ed 

fe all Se etatt: wee ee ee , - 


one 


kth 9 
P 


et a ee ee es wes es ew 


— 


- 


wer ee 












-11-D2LVA-8 
il CONVERT 
13532 402 
813235 Sh8258 
013536 90077 
013540 601 
Siss42 0579 
Di3s44 0010 
513546 108716 
Bisees reer 
313225 teas 
513556 116563 
013584 3527 
61357 +5527 
bi3s74 110223 
813575 O05720 
513690 920057 
513605 o0e746 
513656 603002 
513610 61058e 
5idsi2 OOer7és 
B13614 O87 
Hes tee 
513656 10enr3 
513630 12655 
513632 012603 
513634 912602 
613636 012601 
513640 812600 
513642 104400 
BT3646 Sleece 
Sidess 012616 
633656 80005 
633665 B22420 
513662 501750 
bisés4 DOC ls 
Bi3666 Hoda12 
613670 500564 
912700 112737 
613706 112737 
813714 00403 
613716 112737 
513724 
613724 OLD0Me 
633726 615146 
613730 165727 
533734 6651459 
613736 123737 
ie oe 
Rieees | ae Gee 


BINARY 


900001 
900969 
000940 


009013 


—wewwe 
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4$; 


“so 
ew 


3272) ‘ 
- htied 


SOSLK: 
be 


br 


357 
3-7 


4=JUN-76 
TO DECIMAL AND TYPE ROUTINE 


eager te pte 


*y3: 


ie 


~~) 
‘wD 


. _o~ ry a) uo 
LOLOLOUILN De wu 
Vw) D0 U0 DL) 


a ee 


we 


BRE TSPOOL,SENVM ; 
3$ 








tT FoRERGE Fue BCD OIGIT BY 1 


;;A00 SACK THE CONSTANT 

3 CECK Nd eco pa6iT=0 
;;FALL THROUGH IF 0 
s¢STILL oe LEADING 0°S? 


;;YES--SET THE SIGN 

;;MAKE THE BCO DIGIT ASCII 

Me IT A SPACE _IF NOT ALREADY &§ 
THIS CHARACTER IN THE OUTFU 


eTUst TNCREMENTING 
3;CHECK THE TABLE gHOGX 
3360 00 M3 NEXT OIGIT 


sc 
Rey Me LSD THE FIRST NON-ZERO” 
oe ie sey rock th N FOR TYPING 
ue 
33P THe Bick Ago" RS 


:NOW TYPE THE NUMBER 
$300) JUST THE STACK 


:;RETURN TO USER 


‘BKK OY 
BPT COMMUNICATIONS ROUTINE 


sosesEnSOeenAeCECUDEUeSESORSENEOHEEOEDIOLBONDEEOG 


3:70 REPORT FATAL ERROR 
3370 TYPE A MESSAGE 


3:70 ONLY REPORT FATSL ERROR 
;:PUSH RO ON STACK 

;PUSH R1 ON STACK 

3 SHO iD TEE A MESSAGE? 
 abeRTn UNDER APT” 


SPROUL SPR MESSAGES” 








~~ 


et Se ee ee es ee ee 


, nt al ae a ee 


LOR ONO EN OOO IN 


~~ 


QONOIXINOOVOIVOIVOVOVOOOHo a 
LENNY Ve ee a 


OPN ONO IN ONE 


oOo 


LPN LN OR ORONO 


Fel Sl tl Nad Nell Nel Seat Swell Nell eel Mele will Swede mal all cle Vm Sema ele “made “ml “mae “ae Mele 


oT ae ae 
Net et et et ee 


- 
et & ete Te 


_—n™ “ea a a a ‘e 
0 +0 + 0-50-20 +0 +0 0-20 -2F UND -< (F900 <0 + o- 2 + 20 o-oo a DDO + bo bb 2 2 B88 2 2 bo & + ID Bo b+» + © bBo po + 8 i 
at a Niner Hes Nr Rea et . 


+ OD. 


arte 
a 
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APT COMMUNICATIONS ROUTINE #s% SEQ COSS 
900004 MoV a4($P) RO + GET NESSAGE | ADDR. 
090052 ADD Gi SP) RETURN ADDR. 
001172 ist siécTiPe +SEE IF ‘bene Ey LAST AMISSION? 
001206 MOV RO, $MSGAD ier ADOR it MAILBOX . 
2s: STS RO) + ;;FIND END OF MESSAGE 
001208 Sus $MSGAD, RO ;:SUB START OF MESSAGE 
ASR RO -GET MESSAGE LNGTH iN WORDS 
901210 MOV RO, $MSGLGT i IEUT LENGTH IN MAILBOX 
oso0o4 HOV #4'SMSGTYPE ::TELL APT TO TAKE MSS. 
po0904 33: MOV 34(SP) 48 ;3PUT MSG ADOR IN JSR LINKAGE 
999908 ADD =a, (SP) BUN RETURN ACORESS 
7? t?b MOV 177776, -(SP) ::PUSH 17 iiSuh ON STA 
A oo4e ISR Bc $TYPE ::CALL TYPE MACRO 
48: -WORD 0 
O14144 108: 1378 sErLG $3 SHOULD REPORT FATAL ERROR? 
po1212 is SEN RUNNING UNDER APT? 
001172 118: TST SMSGTYPE STEINISHED LAST MESSAGE? 
BNE ¢3 e. : 
ooo904 MOV a4 (SP) $FATAL ::GET ERROR 
o90ace ADD SP) SUMP RETURN a00R. 
001172 INC soecsipe 5 TELL abt to TAKE E 
614144 128: CLR $FFLS ‘ cCEAR FATAL FLAG 
614142 CLRB8 = SLFLG >:CLEAR LOG FLAG 
514142 ELR5 = SMFLG ::CLEAR MESSAGE FLAG 
MOV (SP)4+,R1 2:POP STACK INTO Ri 
MOV (5P)+:R5 :3POP STACK INTO RO 
RTS pc : RETURN 
SMFLG: .BSYTE OQ ssl MESSS. FLAG 
SLFLG: .BYTE OQ *;LOG FLAG 
SFFLG: . vie 6 FATAL FLAG 
TSIZE=200 


F=040 
seTtL ERROR HANDLER ROUTINE 


SEEPRPRRERREREREREPPAEA DEERE REARS ASAATARAR A! RAPSATHAERERH TREATS 
SATHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
S#SAVE THE gel 1TER NUMBER AND THE ADDRESS OF THE ERROR CALL 
3 #AND GO TO SERRTYP ON ERROR 
vis CPTIONS PROVIDED BY THIS ROUTINE ARE: 


eS! 

s#SWi3sl INHISIT a TYPEOQUTS 

:#SW10=] BELL ON ERROR 

aves LOOP ON ERROR 

+ UR 

;* ERROR N : ERRORSEMT AND NsERROR ITEM NUMSER 


eee OD Fi SE I OL on 8 NORE td RE SIAR TESORO 
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oN ee 


LOLOL LON OOO 


~~ oN 


ee et et i a a a a a ee as a as ew ws a 


o- 
Oe 


, oe —~ 
TUT UO 0+ 0 = 0+ 0 = 02 0s B28 9 FLO (Tb 8+ & 2 b= 0 = 2 0 = Bs bo BO 2 bh 2 2 02 8 ho Os 0-2 = oh = hs Oo + 2 BF Po 
wee ~ 


ee 
at Ca as 


LON ON ONE O 


oo 


ee eet et ee ee et et ee & 


one 


14e71 
l4e7e 
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ERROR HANDLES ROUTINE 


104400 
122737 


013746 
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014336 
001167 


000001 


001114 
013716 


164640 


001000 


001110 
001169 


001169 


0011687 


001314 


001116 


184754 
164744 


OO0lele 
014270 


164624 
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SERROR: 


1$: 


203: 


eis: 


22s: 
2s: 


38: 


4$: 


S$: 


SERFLG 


s8IT 
ean 


gERT 
cP) 1, $ERRPC 
SaERRPC, SITEMB 


3, aSWR 
PC, SERRTYP 
,SoRLE 
sAPTENY , SENV 
siren 21$ 

SATYS 

se 
G 
22S 
aSWR 
3 


St T08, cae 
SLPERR, (SP) 
SESC 


ape 


S$ 
SESCAPE, (SP) 


STSTNM, ot eal 
10, 3SWR 


##¢ SEQ COSE 


TEST FOR CHANGE IN SOFT-SWR 
:;SET THE ERROR FLAG 
Hae Test Pe yuneeR Byb- caers FLAG 


NG ELL 
et THE NUMBER OF ERRORS 
SIGET ADDRESS OF ERROR INSTRUCTION 


FOU ts" 
$386 TO SER ERROR ROUTINE 


: RUNNING IN APT MODE 
SKIP APT ERROR REPORT 

toes ITEM NUMBER AS ERROR NUMBER 

::REPORT FATAL ERROR TO APT 


s APT ERROR LOOP 
tiHALT ON ERROR 
:3SKTP IF CONTINUE 


Ret 
sitPer FOR CHANGE ih SOF T-SWR 
peta ERROR SWITCH SET’ 


: +EUDGE RETURN FOR LOOPING 
a CHECK FOR AN ESCAPE ADDRESS 


;BR_ IF NONE 
: FUDGE RETURN ADORESS FOR ESCAPE 


RTI ; gRETUR 
.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


5 REREE RARE EA REL ERE EERE EAA E EAE ER EERE AL ERE ALE E RARE L ALLEL LAL LE 
ATHIS ROUTINE USES THE “ITEM CONTROL Te isi rere Ty DETERMINE WHICH 


ERROR IS TO BE RAINS, FROM 
:#AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
T 


REPORTED. IT TH 


SCRLF 
RO. -(SP) 


J8$ITEMB,RO 
1$ 


SERRPC,-(SP) 


HEN O8T THE “ERROR TAGLE" SERRTS), 
$5 cree nce RETURN” & “LINE FEED” 


: PICKUP THE ITEM INDEX 


Ju S 
Us 


iif oa Tet Nu NUMBER 1S ZERO 

OF Ener 
bE SraRPS FOR Me ES UT 
::ERROR ADDRESS 








te gs a -B 


DILVAS.P 


Lis) 


et a a et et et et at as et a ee ee ee ee es a a ee es es es 
* 


01436 
hae 


LO LOO ROLE PRL LO LO 


ion ae de ie en die tee is ae ee a ae 


LENO ENO ON 


O14465 


~ caver. 


SO AB PA NE ceelet atest Lat “b+ = 0-8 = LTT bb b+ 8 8 9-9 bo bo 9-0 9-0 fo 0 ps B= 
—_ 


- 
ed ae | 


LON OTN ENE 


eed 


914472 
14472 
14474 
014502 


014504 
O14SOE 


SNL EN EN ES FR ER FR ENOEN O 


er et ee ee et et et ee ee ee 


Fe Te ae ee 


| 


Rae reins 


O1447e 


O32 

0013062 
COO41E 
013746 


012737 
005737 
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001167 


001167 


C14465 
C00 


O40000 164436 


000004 
014532 O00004 
177060 
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ERROR MESSAGE TYPEOUT ROUTINE 


04401 


qyPoc - $3 60 9, TYPE--OCTAL ASCII(ALL DIGITS) 
18: DEC RO + ar ust THE INDEX $0 THAT 1 WILL 
ASL RO a WORK FOR THE ERROR tat 
ASL RO 
ASL RO 
add aSERRTE RO s3FORM TABLE POINTER 
MOV 5)+,2$ :PICKUP “ERROR MESSAGE” POINTER 
BEQ f° si SKIP TYPEOUT IF NO POINTER 
TYPE YPE THE “ERROR ME SSA3E" 
23: .WORD 9 tees OR MESSAGE” POINTER GOES HERE 
TYPE $CRLF >:"CORRIAGE RETURN” & “LINE FEED" 
38: MOV iRO)+, 4 ::PICKUP “DATA HEADER” BSTHTEE 
REQ 2:SKIP TYPEOUT IF 0 
TYPE is TYPE. THE "DATA 
4$: LWORD 60 ssa Q HEADER” POINTER GOES tees 
tyPE + SCRLE "CARRIAGE RETURN” & “LINE FEED" 
S$: MOV ).RO > :PICKUP “DATA TagLE™ POINTER 
SNE 33 66 Te THE DAT 
&$: MOV °5P)+. RO ; ;RESTORE RO 
TYPE ScrLF + SCaRRIAGE RETURN” 8 “LINE FEED” 
- RTS PE ; ;RETURN 
(3: 
MOV Q(RO)+,-(SP) — ; ;SAVE Q(RO)+ FOR TYPEOUT 
TYPOC #389 TYPE=-OCTRL ASCIT(ALL DIGITS) 
is {§0 3318 THERE ANOTHER NUMBER? 
TYPE ,9$ : TYPE THz) SPACES 
5R ¢ s LOOP 
g$: ASCIZ 4 /  Fuoce) SPACES 


EVEN 
-SB8TTL SCOPE HANDLER ROUTINE 


; SHHERELFLLLELELAPALELALAAAALAPLELALAFRALLLELALAPARELL PALS RALALE 
tS THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. i WILL INCREMENT 


: AND LOAD TSE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
*#AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY: rE: 98> 
S#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
;*SW14=1 LOOP ON Tia) 
: #50921 tSop ON ERROR 
: #SHO8=1 LOOP ON fest IN SWAK?7:9> 
oe 
;# SCOPE 3; SCOPE=IOT 
SSCOPE: 
KSWR TEST FOR CHANGE_IN SOFT-SuR 
iS: BIT s2IT14, ISWR ue ON PRESENT TEST? 
BNE OVER Swi4s! 
eeeexSTART OF CODE FOR THE xoR ttsT aeae 
éxTSTR: BR 6$ ts CRON NG ON THE “XOR™ TESTER CHANGE 


; THIS NSTRUCTION TO_A_“NOB* (NOP=240) 
MOY -QNERRVEC,-(SP) $:SAVE HE CONTENTS OF "ye ERROR VECTOR 
Mov  s5$, dBERRVEC +1361 FORT 

TST 3877060 





$44 5 


en # 


ev 





0S7 
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MAINDEC-11-DZLVA-8 
2LVA8.P11 COPE HANDLER ROUTINE 


LOR LO LO PN PN PO OO PO 
+= 6 p< p< bb pe 


PM PN PN INO OF 


~ 


LLL LN OND NLR ON LO LN LN ONL LN LOL OLA LN OR OQ ON PN ON LN ON NOON PRLNO 


CDUI C104 hs 00 ss = Ue III I CD Ds 0 PU 2 be 0 2 he ee he he ee pe 
tt a a tt at ee et i tt tt it at at at at at et at at et et at tt a et at a et as Ss a a a es a es as a a es a 


> tae tan an 


~~ 


164370 
001102 


164342 
001106 


001176 


001115 


164264 


O24 
O26 


Oo 
Ooo 
i oe | oe | 


000024 


oo0d24 


ge : ,LOOP 
6S:;RBNEREND OF CODE FOR THE XOR tt 
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MOV (SP}+, HERRVEC ; RESTORE THE ERROR VECTOR 
BR SSVL RO ; 360 to T HE NEX 

S$: CMP Gor (SP) :CLEAR THE STACK off TERA TIME OUT 


MOV SP), * JRERRVEC i FRESTORE | ERROR 


gir #8ITOS, ISWR 3 LOOP ON SPEC, TEST? 
CMPB Ss) SWR,, STSTNM 330N THE BIGHT TEST? 
BEQ SOVER 
23: TST8 = SERFLG ; HAS AN "ERROR OCCURRED? 
SEQ SSVLAD N 
grr #81709, OSUR + LOOP oN ERROR? 
78: MOV $LPERR, SLPADR tcer OOP ADDRESS TO LAST SCOPE 
Ve 
4$: CLRB  $ERFLG $3 ZERO. THE ERROR FLAG 
$SVLAD: INCB  $TSTNM :: COUN T Test 
MOVE  $TSTNM,STESTN ;;SET TEST N UMBEE IN APT MAILBOX 


MOV (SP), $CPADR . -::SAVE SCOPE LOOP 


MOV (SP) $LPERR ::SAVE ERROR LOOP RODRESS 
CLR SESCOPE :s CLEAR THE ESCAPE FROM ERROR ADDRESS 
Y (1) ERROR ON NEXT TEST 


ALLOW a AE 


M 
SOVER: MOV sist, SOISPLAY HDISPLAY TEST 
MOV SLPADR: (SP) ; ;FUDGE RETURN ADDRESS 


RTI 
LSBTTL POWER DOWN AND UP ROUTINES 
© LESELEREEFSLAFS FREER ERALRAELELE ELLA LER RLEREFASRELELEF SES SLSAHRE 


IBOWER DOWN ROUTINE 


Se URON: HOV WSILLUP, DePWRVEC ; ;SET FOR FAST UP 


y #340. DRPWRVEC+E :iPRIO 

MOV RO, -(SP) a ho ON STACK 
MOV RI’ (EP) PUSH R1 ON STACK 
MOV 2) -(SP) ::PUSH R2 ON STACK 
MOY R3.-(5P) PUSH R ¢ 
MOV RY -(SP) ::PUSH RY ON STAC 
MOV RS’ -(5P) ; PUSH RS ON STACK 
MOV gSuR =( SP) 33PUSH QSWR ON STACK 
MOV SSAVRS SP 

HOV, SSPRRUP DaPWRVEC’ SET UP VECTOR 
BR 2 :;HANG UP 


; s LELHLALELLLE LALA RLELELAELERAAARERAEARERARAAAAER AAA RL RALARARLAAE 


OWER UP ROUTINE 


SPuRUP: MOV #SILLUP, O8PWRVEC ;;SET FOR FAST DOWN 
MOV SSAVR P 


6, SP 
CLR SSAVRE :iMRTT LOOP FOR THE TTy 
18: Inc SSAVRE :;WAIT ie THE I 
MOY (SP)+, aSWR ::POP STACK INTO JSWR 
MOV (SP)4 ‘RS ::POP STACK INTO RS 
MOV (SP)+°R4 :;POP STACK INTO RG 





oe PRESENT TEST 











DZLV 


(3) QO1477 
(3) O14?774 


tJ 
DUD we ee we we we wes ws rw ws 


o- 
POROD OR OREN RE NON ER FR LOOP 


at Tt aoe tae Tae Ee ae de 


| is] oe | oe] Se | oe | oe | a) 
-- 


LN LON LN ON PO 


thet 


015076 


ae ae ae ae ae ee ee ee ee ee ee ee ee ee ee ee ee 
SONI GIGI 000 6) GCI GI 0 GI GI GIGI GIG) GIG 0 0 + 0 bs = be bo 2 LO 80 0 ee hs oe pe pe 


a te es a es te 


oe +9-- 
Nc 


t 


ees -11-D2LVA-8 
AB.PLL POWER DOWN AND 


000 lee 


—-uIoOod 
aw 
oO 
© 


12744 


013454 
Oi2e40 
012170 
0124Se 
Oles7e 


000900 
009001 
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014654 
000340 


047520 


ooc0de 


015064 





7 (663) 


UP ROUTINES ##% SEQ 0059 
MOV (SP)+,R :;POP STACK INTO 8 
MOV (5P)+'R #3BOP TACK INTO R 
MOV (SP )+, RI 5P p STACK INtG RI 
MOV (SP)+ Ck INTO RO 
oon024 MOV WSPURONS ePURVEC’ : : ist uP THE POWER DOWN VECTOR 
000026 MOV 8340, IBPWRVEC+2 ;:PRI 
TYPE i Aep ErOR; 7 THE POWER FAILURE 
SPWRMG: WOR SPOWER :POWER FAIL MESSAGE POINTER 
SILLUP: HALT 3; THE POWER UP SEQUENCE WAS STARTED 
BR 2 ie BEFORE THE POWER DOWN WAS COMPLETE 
$SAVRE: O ::PUT THE SP HERE 
042527 §POWER: .ASCIZ <15><12>"POWER™ 
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EVEN 
.SBTTL TRAP DECODER 


ae ae ee ag Se ry oe ge ge et as 
:ATHIS ROUTINE WILL rine THE LOWER BYTE OF THE “TRAP INSTRUCTION 

¥AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED I7 WILL 
;*G0 TO THAT ROUTINE. 





STRAP: MOV RO,-(SP) ;SAVE RO 
MOV 2($P).RO Bey TRAP ADDRESS 
TST =(RO)’ : BACKUP BY 2 
MOVB  (RO),RO :GET RIGHT SYTE OF TRAP 
ASL RO i POSITION FOR INDEXING 
MOV STRPAD(RO),RO ;;INDEX TO TABLE 
RTS RO 2260 TO ROUTINE 


-SBTTL TRAP TABLE 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:*BY THE “TRAP” INSTRUCTION. 


; ROUTINE .. 


$TRPAD: 
$TYPE CALs TYPE TRAP+0( 104400) Try Yy_TYPEQUT ROUTINE 
STYPOC ::CALL=TYPOC § TRAP+1(104401) AL NUMBER (WITH LEADING ZEROS) 
STYPOS ::CALL=TYPOS  TRAP+2(104402) ee OCTAL NUMBER (NO LEADING ZEROS) 
STYPON : CACLETYPON TRAP+3: 104403) TYPE OCTAL NUMBER (AS BER LOST cru) 
STYPDS ::CALL=TYPDS § TRAP+4(104404) TYPE DECIMAL NUMBER (WITH SIGN) 


$GTSWR ;;CALL=GTSWR TRAP+5(10440S) GET SOFT-SWR SETTING 

Senne 3; CALL=CKSWR se HE a. Be test FOR CHANG AR ate 
ROCHR ;;CALL=RDCHR TRAP+7¢ 10440 TTY TYPEIN CH abt ROUT INE 
SRDOLIN ;;CALL=RDLIN TRAPS 10¢ 104410) TTY TREIN STRING ROUTINE 


BUFFER: 0 
. END 
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OZLVAB.P1L 
AUSWR = 000000 
AVECTI= 


D 
=< 
Simin 
—4C re 
D-4-4 
ru 
wp 


4 


BITO = 09000 
BITCO = 900001 
BITO1 = 0000 

BITOe = 9900 

BiTO3 = 0009i0 
BITOY = 00002 
BITOS = 00004 
BITO& = 000100 
BITO? = 0002 

BITOS = 900400 
BITOS = 001000 
BIT1 = 9000002 
BITiO = 002000 
BiTll = 004006 
BITle = 010000 
BIT12 = 00 
BIT14 = 040000 
BITiIS = 100000 
BITe = 000004 
BIT3 = 0000! 

BITY = 900020 
BITS = 900040 
BITS = pee 
BIT? = 0002 

BITS = 000400 
BITS = 061000 
BPTVEC= 000014 
BRLEV] OO01624 
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CROSS REFERENCE TABLE 


—-~J~J OO 


MOU JOJO) 
SE SE 2S SE SE SE BE BE SE SE SE SE SE SE SE SE SE SE SE OE SE SE OE SE SE OE Ot XK OF 


oOonrwru 
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### SEQ OOE1 






$80 582 S84 S86 588 599 69 604 636 608 619 612 
616 §18 $20 629 631 643 645 647 649 651 £53 655 





3 
896% 905% 912% zee 


2s” 289 234 eg 883 898 906 914 922 340 


273 275 281 354 389 374 379 381 34 399 401 








241% 242% 3s5 
75 


3 
Ease inte 335 
671 693 811 823 838 863 882 $21 Ses 10748 


1068 1070 10728 
oSS* 961% 365% 









9678 970 
524 
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DZLVAB.Pil CROSS REFERENCE TABLE ### SEG O062 


125 131 137 143 149 155 167 173 179 185 1058s 
DISPLA 001142 ee 1068% 107 
DISPRE 909174 ees 


> 


396% 397% 974% 9828 


3302 
Oleiss 
003734 


— CD 0 + 0 3 
Rite ERNE RB BBC IRC 3 


WO LoOMeow PoOMree 


+--+ ~ > +b +b +6 


yo 
A 
b+ b= b-- bb + bb 6 6 2b <p 


WO NUINO OU © £WIG) £ MeO 
toe crund 8 


ass 


é 


0 
00 
00 
06 
0} 
01 
01 
Di 
01 
Gt 
l 
Ol 
01 
O1 
4 
ot 
1 
01 
01 
01 
01 
1 
1 
1 
1 
1 
1 
Ol 


az 


ess*  1070% 
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DZLVAB.P11 CROSS REFERENCE TABLE ### SEG 0063 


GNOWD 664 673.8778 


GMOWN 1 
GMOW1  O01642 213% 666% 667% 670 672 685 688% 689% 700 711% 
GMOWe  QO01644 el4s 668* 677 680* 691* 699 707% 

GMOS Boece else 669% 680 682% 683 692% 707 708* 

GMDWY 710% 





Grouse | Doeiso S78 930 
Browse | Doe Tae Seg 933 
GROWSD 906154 926 © 9368 
GROWSE 005114 9e38 «939 
GTSWR = 104405 10728 
HT = 00001) l# 1084 
INT O02) 2272308 
NETO O0i67 2230 eet 
ret ** OoSi0 iss 
BTA Boe ee 38727 
ko001 001576 1848 451 
Koo02 001500 1958 «478 
LASTCH O16 2048 = S21 
LF = O0001 lle 1064 
tic, 0se¥4 0 14 
Cita  055s2 g25¢ B31 
CICB 005570 828 48©=- 8308 
CPCHA 003406 4498 (481 
vad 0156 1g98 230 
tve =: OO16 1988 B28 
933% 957% 


ve a 
oa a 


-—-—- —— 
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DZLVAB.P11 CROSS REFERENCE TABLE #4# SEQ 0064 


LYVCT 1§1 * * 383% 373% 408 
ae ¢ kB 

MSG1 007, 

MSGe 


237 
777 795 10048 
787 1007% 


: ~ 
hohe eet IO 
fr--O0OC0ow 
9 


oO 
fur 
oO 
a 


Cue 
1064*% 1067% 


uD 
pm 
ooo 
mi 
“wu 
x 
PI 
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A ee a as ee oe a ae 
& 2 b+ b= b= bb ps ps 


a8) 


VE 


MEE S Dir tro | 


-—-e 
aie SR 
MWUDOWe-— 
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co 
eT 
Orr 
* os 
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#*% SEQ OOES 


| 1072% ee 
ot 2% 8 449x 461% 4 4B3% 464 4 47 472 493% - 3 
eee Ms Oe Sr Ons Or ee ee ees eee 
Re =%00000e ] Blox 14% 824% a333 acts se ge 7 Sx oe 946% 949 1066* 1071 
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TART O016) 
STCHAR O01 
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DZLVAS.P LI 
gsas 01246 
Sih spies 

DDRT O01126 
$SELL 01162 
$cOwl d01eSe 
$oHaRC 013522 
SCKSWR 012170 
SNTRG 991105 
SONTLG ei 
SENTLU Ble710 
$CPUCE 951250 
ScRiF 6O0116° 
SO8LK 813670 
SDEVCT O012e02 
S59evm «= 01250 
SO5AGN 995236 
SOTBL «913660 
SENDRO 005226 
SENOCT 905174 
SENOMG 505245 
SENULL 9B05S4= 
SENV =: O22 
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| SEOF COS 144 

| $Edecr 50e1e6 

| SERFLG 091103 
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| SERROR 515145 
SERRPC OS1TI16 
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| $ETEND 001254 

~$Faval O14 

SFFLG) 015144 

'SFILiC O01156 

|SFII1s Soj1&5 

| SSOROR 601125 
SSDDAT 01124 

~<$SET42 «O0czic 

—SGTSwR «012240 

«SHO 909603 

$HieTs 601059 

1 §IeNyr 661154 

SICLup 876835 

1 $iNtAS OO113¢ 
SITEMS 00114 

| $LF 651170 

/SLFLS 014143 

| §LPRDR OO1106 

| §leeke SEi1I6 


on 


WWW NOY OTD 
CNUs US .ocu0D 


o- 


MACY11 27 (663) 
REFERENCE TASLE 


230 


st + 


Coed eed aed aed ee 
MOdoKdVIOTUDd 
ind wowoO@MuIM 


MOOR Mrauc 
+e 





mn re ee + ee ee 


MACY11_ €7(663) 


MATNOEC=11-DILVA-8 
RS CROSS REFERENCE TABLE 


oo -~ 
futurure 
“jot 


“ow 
oo rv 
Orci Oo£ 


ihn DBD 
2388 
fu~de-CQrururufuse- 
ey 


BOO O00 
(90) & 


oO 


~ 
“Gaturnadw 


trom ~jo-— 


gece BaaREE 
di 


QOR2000 
ee et el 


thik 
oO 2 
dow . 
st as ot as se 


bb 


SIM “IM LIINITVY SD 
ae 





v9 
100-4 
+z 


0+ +0 -+ b+ be 6-0 e- 
MOONONDOAOOIODO OOVg 


funN~iI~sru 


a 


Big 
ba poe 
’ 
Pot ed ay 
ar 3e 


— MUP GGITUGITUGIUTE~ + Ue 
+ 


Ree 
bs 


«x -4 
4 ~t. 


pa 


wun 
Op tg 


0 


« 


i 


Rooney 
~~ 


o—-o-- 
o’-~ 








4-.UN-76 15:51 


2b4es 271 
4868 506 


725+ 


1064 1068 


ere a 0 ee eee eee 


PAGE 33-20 





264 
486 


1072 





wus 





MAINDES=21-DoLVA-8 


LVAS.Pi2 


we SRECORORER 
# COC -(e- (90009 


* 
* 
” 
> 


ighaigetyty 


as] os | os | Os | oe] os | 


etetetetetetetet ete 


+ So-e- COMMrur 


30 
© 
oO: wrurucoruru 


: : 
17%) ‘OrOOrrmmrm~) 
“GJ mw 


MACY11 27 (663) 
CROSS REFERENCE TABLE 


4-3 Ory 
sé 


~) 


Q00 200 
furor 


o~+ b> — ) 


234 


1078 
248 
10&S8 








MRINDEC|11-D2LV 
DILVSS. PLL 
COMMEN lis 
ENDCOM lle 
ERROR lls 
366 
ESCArE lls 
sETPRI lis 
SE TSWR lls 
MULT lis 
NEXTST lls 
aut 
POF lls 
PUSH lis 
REPORT lis 
SCOPE lls 
440 
SETPRI lls 
SETTRR 9 i07e8 
SETUP : dle 
SKIP ils 
bay bal 363 
Sant ils 
Srece ils 
STARS ils 
287 
15& 
SWRSU lis 
TRMTES 1o°es 
TYPBIN lls 
TYPDES lis 
TYPNAM lls 
TYPNUM lis 
TYPOCS lis 
TYPOCT lis 
TYPTX7 ils 
SSCMRE ass 
SSCMTM 33s 
SSESCA ils 
SSNEKT lis 
335 
SSSEY lives 
SSSET™ zz58 
SSSKIF ils 
-EQUAT is 
HERDE 58 
SETUP Ss 
SWEHI ts 
.SWRLO iss 
.SeCTL 78 
.SAPTS 78 
. SRP TH 78 
SaPTY 73 
Scare cs 
SMTA iF 
. SEF os 


-§ 
CROSS RE 


Goture 
coum 
Corus 


MCrcts 
wis 305 


- 
MworL® 


tw 


MACY11 27 (663) 
FERENCE TABLE 


1069 


awwo 
fou 
“es 


28e 


4-JUN-76 15:51 PAG 


27} 286 é33 
$So Sve $3’ 
271 296 e393 
§50 572 697 





#s@ SEG 0070 





tnt Swit ge eee ween: COS. sah at; ead 

MAINDEC=11-D2LV8a-8 MACY1L1 E7(863) 4-JUN-76 15:51 PAGE 33-23 
DILVAS. Fil CROSS REFESENCE TABLE ### SEG 0071 
. SERRO 1068 

.SERRT Se 1959 

es oO ik 

3552 68 10/79 

$TRAF &e 1072 

STYPD Se 1065 

STYPE Se 1554 

$TyeD Sa i065 


- pee oe ee 





= 









DZLV 





ated ta om 


wos 


HHO 


phe tt terete ae 


MACY11 27(663) 


MAINDEC-11-DZLVA-8 
CROSS REFERENCE TAGLE 


: 2 27 2 460 728—ss—«iOE 
41 431 42S (i iF HD HSC SD SECH??'489s« 
suis? GS (SLC ECi‘iKSC(tSESC(‘czk‘;D:SCOOSESCSTECCSSP? 
cy Seg (ii‘iog(CiHCi‘*SS HC sD] GH GSC‘ (iti (ET E1B8S 
625 «6250S fsi2Qsi—‘izk SOHC tC] (GS (GC GCE 28S 5? 
BEY sé? 6 713 ce 0O7eHi“(<té‘SOCPRCOD i O_( kD (EEC 
1063 «1064 «= 10brSs1068 : 

231 232 em 23 237 BY 249 BY Bue B49 B55 279 ~~ 287 
305 46 308—‘é‘ékdl;«OCOCOK?:2SCCOti—(<sisC(<iésiéidC CT Cs HEE 
38 Ci‘ ‘aC? 373 «378 ti«é<“P 388 0CiCi8S—iaHE a SECS 
wo CSS (isi = HTS SSCS ck a 
sea iS ise?Si89siS]SisCiS (Gi? SSCL S13 SSP 
bee = §30 420g C(t (SNCté‘éSSC( (GCE Cs EEC(ité‘iSSCtCtiCdGERSC (<s#sCi«ékESG 
671 688 69 691 69% 6939 698 700 7e2 723 729 732 86735 
813 23824 2306 838i iC (GDC (GCS GDC (SELES 
cogs (tC (CSC (GCP LS SC ( GH FESS 
97 987 1063 1064 1065 1066 1067 1068 1069 1070 1071 1078 





4-JUN-76 





15:51 PAGE 33-24 






### SEQ 0072 








1833 500 $20 737 1083 1064 1065 i066 1067 1069 


940 1063 1065 









MAINDEC-11-DZLVA-8 


ERRORS DETECTED: 


eDZLVAB/ I, DZLVAB’CRF<DZLVAB. P11 
| § 1 SECONDS 


es 





MACY11 27(663) 
CROSS REFERENCE TABLE 


1072 
11 


19 
36? 
728 


15:51 PAGE 33-26 





286 
$72 


53) 
1069 





TeTeve! 


_ ee ee ANE oo ie 





